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| 
91 ZTITLE sy parameter module’ 


; 1 $ 
; ¢ 0 6 MODULE NML : 
; 00 LANGUAGE (BLISS32), : 
; 4 0004 ADDRESSING_MODE (EXTERNAL=GENERAL), 3 
: 5 9005 ADDRESSING MODE (NONEXTERNAL= GENERAL), : 
; 6 00 IDENT = ‘v04-000' 3 
$ 7 00 )s 3 
; 8 0008 1 BEGIN 3 
; 9 009 1! $ 
s 19 Bot) LF eee eee eee REE R AERA TE AEE AAERET REARS , 3 
: 1 !e * ; 
; ig Bog 1 I COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
; 1 01 1 !* DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD, MASSACHUSETTS. * : 
; 8 Bate : 7 ALL RIGHTS RESERVED. * 3 
4 ‘* . | @ 
; 16 0016 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND cores * ; 
; 17 0017 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH * 5 
; 18 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT ARE OR ANY OTHER * 3 
: 19 0019 1 !'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * $ 
: 20 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: $3 8053 : 1* TRANSFERRED. * : 
3 'e * 3 
3 $¢ 0098 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * P 
; «2 0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
; $2 boSe : :* CORPORATION. * : 
3 'e e : 
; a 0027 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
, 2 0028 1 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
3 g 0029 1! ® 3 
; 0 0030 1 !« * 3 
3 1 0031 1 Lee RRR RAAAA AREA AEA E AAA A AAA A AAA RA REAR AAA EEE P 
; 32 itt 7 3 : 
, 2 0033 1 F 
; 34 0034 1 !++4 3 
; 0035 1 ! FACILITY: DECnet-VAX Network Management Listener 3 
$ 36 0036 1! 3 
; OUT 0037 1 ! ABSTRACT: 3 
; 3 0038 1! ; 
2 39 0039 1! These routines return volatile data base information in response to 3 
3 re se : an NCP SHOW command message. | 3 
; ri Bpeg ! ENVIRONMENT: VAX/VMS Operating System | : 
; rf OOee ! AUTHOR: Distributed Systems Software Engineering 3 
s 6 0046 1 ! CREATION DATE: 30-DEC-1979 : 
: 47 0047 1! é 
; 48 0048 1 ! MODIFIED BY: 3 
; 69 0049 1! 3 
$ 50 0050 1! v03-015 MKP0019 Kathy Perko 4-Mar-1984 : 
; 3 ba : Fix area numbers when doing SHOW to Phase III nodes. 3 
; 34 088 7 ¢ v03-014 MKPOO1 Kathy Perko 9-Jan-1984 : 
: 20 pee : Add X25-Access Module entity. 3 
3 28 0036 1! v03-013 MKP0017 certs Perko _ 9-Nov-1983_ : 
; 7 0057 1! Fix SHOW KNOWN NODE CIRCUIT <circ id> to simply return a 5 


ms HOW NML SHOW parameter module 1$-sep-19 4 00: 34:38 VAX-11 Bliss-32 V 2 


14-Sep-1984 DISKSVMSMASTER: cen” She NMLSHOW.B32; a9 eas 
§ 038 prompt if there aren't any. 
60 060 V03-012 MKPO016 by te 31-May-1983 
2 bes Fix SHOW single Cine IT COUNTERS to return proper data. 
6 06 v03-011 MKPO015 Kathy Perko 6-May-1983 
0064 Fix SHOW CIRCUIT to return circuit into once. Also, fix | 
65 0065 SHOW CIRCUIT to return service adjacency info (SDI database) 
Boe8 only for NI circuits. 
67 06 
68 0068 y03-010 MKPO014 Kat hy Perko 30-April-1983 
. . i Add Service ree es to SHOW CIRCUIT. | 
71 0071 03-009 MKP0013 Perko 25-Jan-1983 | 


Fix SHOW KNOWN A A TIVE nodes if there's a circuit qualifier. 
v03-008 MKP0012 Kat hy Perko 14-Nov-1982 
Allow CIRCUIT qualifier on SHOW NODE commands. 


v03-007 MKPO011 Kathy Perko 12~Nov-1982 
Fix SHOW CIRC nnn cou (which was broken when ADJACENT | 
NODE qualifier was added). 


V03-006 MKP0010 Kathy Perko 29-0c t-1982 
Add area entit 
Change SHOW CI CUITS to return the first adjacencies 
information in the same NICE message as the circuit's info. 


v03-005 MKP0009 Perko 13-0ct-1982 
Add SHOW ADJACENT . ES CIRCUIT aciveuth id> and 
SHOW KNOWN CIRCUITS ADJACENT NODE <node id>. 


v03-004 mKPO0O Rory Perko 4-0ct-1982 
Add SHOU ADJACENT NODES and SHOW CIRCUIT(S) ADJACENT NODE(S). 
Add X25-Tracepoints to NMLSGET_ENTITY_IDS. 


| 
| 
v03-003 MKP0007 y Perko 19-Sept-1982 
Redo SHOW KNOW Noves” and LOOP NODES to use the multiple 
capabilities of the new Q10 Bui dy with NETACP, | 
| 

| 

| 


V03-002 MKP0006 Kathy Perko 1-July-1982 
Add qualifiers to SHOW. Rewrite a bunch of routines in the 
process to take advantage of the enhanced Q10 interface. 
dd X29-Server entity. 


v03-001 MKPO00S Kathy Perko 77-May-1982 : 
Add double search keys to NETACP alo” interface. Also, combine 
the show active and show known node routines into one. 


V02-004 MKP0004 Perko é-Jan_1982 
Fix SHOW LINKS with” ODE 82 that, if Ehe node 
4B. is greater than 2 the show will work. 


v02-003 MKP0003 21-0ct-1981 | 
Make NALSGETDATA™ ~ Yume SPROCESSDATA stoust 
routines so compatibility module can use them. 
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: 115 Jb) ie BS v02-002 MKP0002 Earby Perko 8-Sept-1981 
: 118 116 Fix SHOW EXECUTOR COUNTER 

; 118 118 1 i v02-001 mxP0001 y Perko 22-July-1981 
; 18 18 : } Add circuit eater ond ault drop Lines. 

: 134 134 1 
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Declarations 
1 ZSBTTL ‘Declarations’ 


! TABLE OF CONTENTS: 


7 
F 


FORWARD ROUTINE 
NMLSSHOWENT 


; INCLUDE FILES: 


ITy, 

LSSHOWMULTIPLE : NOVALUE, | 
NML_PROCESS MULT_BUFFER: NOVALUE, 
NMLSSHOW_CIRCUIT : NOVALUE, 
NML_SHOW-ADJACENC! 
NMLSSHOW-KNOWN LOOP : NOVALUE, 
NMLSSHOWNODEBYNAME : NOVALUE, 
NMLSSHOWEXECUTOR : NOVALUE, 
NMLSSHOW MULTIPLE NODES: NOVALUE, 
NMLSGET_ENTITY_IDS, 
NMLSBLDSHOWBUFS, 
NMLSGETDATA | 
NMLSPROCESSDATA : NOVALUE, 
NMLSGETIDSTRING; 


LIBRARY ‘LIBS$:NMLLIB.L32"; 

LIBRARY ‘SHRLIB$:NMALIBRY.L32'; 

LIBRARY ‘SHRLIBS$:NET.L32'; 

LIBRARY ‘SYSSLIBRARY:STARLET.L32'; 
| 


; OWN STORAGE: 


OONOA MAE WN OO OD NOUS WN (OO OODNOUE WN OOONOU SW 


ere : VECTOR CNMLSK_QIOBFLEN, BYTE]; 
NMLSQ_LISTBFDSC = UPLIT (NMLSK_QIOBFLEN, NMLST_LISTBUFFER) : DESCRIPTOR; 


wn 


OWN 
ane re : VECTOR CNMLSK_P2BUFLEN); 
NML$Q_P2BFDSC = UPLIT (NMLSK_P2BUFLEN, NMLST_P2BUFFER) : DESCRIPTOR; 
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BInphMtST-ENTBUFFER VECTOR (323; 
NMLS$Q_ENTBFDSC = UPLIT (32, NMLST_ENTBUFFER) : DESCRIPTOR; 


NMLS$B_ADJACENCY_FOUND: BYTE; 
' | 


: EXTERNAL REFERENCES: 
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SHOW parameter module 16-Sep-1984 90: 34:30 
arations 14-Sep-1984 12:50:20 

! SNML _EXTDEF; 

1 exten, 

1 nm\$gb_ncp_version, ! NICE version being spoken 

: nmlSgw_vol_exec_addr : BBLOCK [2]; 

1 EXTERNAL LITERAL 

i CPT$GK_PCNO_DLI; 

1 EXTERNAL ROUTINE 

1 NMLSBLD_REPLY, 

1 NMLSBLDP2, 

1 NMLSERROR.1, 

1 NALSERR 2 

1 NAL SGETEXEADR 

1 NMLSGETINF TABS, 

1 NMLSGETNODADR, 

1 NML$GE TNOD ° 

1 NMLSNETQIO, 

1 NMLSSEND 

NMLSSHOWPARLIST; 


sciiliesealamasintehaegiatiinn . 
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NMLSSHOWENTITY Show volatile entity parameters 14-Sep-1984 DISKSVMSMASTE a NM, SRCINML SHOW.B32;1 ” (3) 


| 
| 
; 203 1 1 ZSBTTL "NMLSSHGWENTITY Show volatile entity parameters | 
3 Be § : GLOBAL ROUTINE NMLSSHOWENTITY (ENTITY, INF, LEN, ADR) = 7 
: 1 'e¢ 
: 207 5 i FUNCTIONAL DESCRIPTION: 
; 44 i ; This routine shows volatile entity parameters. 
: 211 09 1 | FORMAL PARAMETERS: 
: \¢ 10 1! 
: 1 ae ENTITY Entity ID 
; 14 \¢ 1! INF Information type gee. 
3 219 7” a7 LEN Length of entity id string. 
: 18 0 1 : } ADR Address of entity id string. 
: 218 9 16 iene 
: 219 0217 1 
3 $y 0218 BEGIN 
3 1 0219 
3 ¢ 0220 LOCAL 
; 8553 STATUS, 
s 4 0 ¢ P4_DATA_DSC : DESCRIPTOR, ! Q10 data descriptor 
; 225 0 P4"DATA_PTR ' Pointer into P4 buffer 
> 226 0224 NICE_MSG_DSC : DESCRIPTOR, i Qutput message descriptor 
3 der 0225 NFBDSC :"REF DESCRIPTOR, ! NFB descriptor 
; 228 0226 P2DSC_ : DESCRIPTOR ! P2 parameter descriptor 
: $3 3 sf TABDES : REF DESCRIPTOR; ! Information table descriptor 
: 231 0229 2! 
; sag ? Get NFB, table, and P2 buffer. 
; 235 3 NML SGETINF TABS (.ENTITY, .INF, NFBDSC, TABDES, 0); 
: 236 0984 i X25 and X29 Server databases have only one entry. So always do a 
; $ 8s 5 wildcard zero of these databases. 
: 239 0 3$ if .ENTITY EQL NAL SC_X25_ SERV OR 
> 240 33 -ENTITY ECL NMLS$C"X29-SERV OR | 
: 241 0239 -ENTITY EQL NMLSC_TRATE THEN 
3 : 3 re LEN = -1; 
; rf 039 NMLSBLDP2 (.LEN, .ADR, -1, 0, NMLSQ_P2BFDSC, P2DSC); 
: 26 boc STATUS = NMLSGETDATA (.NFBDSC, P2DSC, NML$GQ_QIOBFDSC, P4_DATA_DSC); 
3 4 0245 IF .STATUS THEN 
4 48 0 rt BEGIN 
: 49 024 P4_ DATA_PTR = .P4_DATA_DSC COSCSA_POINTER); 
3 29 0 $8 WAC SPROCESSDATA (CENTITY, .TABOES, P4_DATA_DSC, P4_DATA_PTR, NICE_MSG_DSC); 
: 3 50 
; @ 51 BEGIN 
3 54 26 NMLSBLD_REPLY (NMLSAB PSSeL Ck. NICE_MSG_DSC COSCS$W_LENGTH)); | 
3 55 5 NICE_MSG_DSC COSCS$A_POINTER = NMLSAB_SNBBUF FER; 
eo ae 
: 58 2$ NMLSSEND (.NICE_MSG_DSC CDSCSA_POINTER], .NICE_MSG_DSC CDSC$W_LENGTH)); 
3 59 025 RETURN .STATUS; 


$ WML SHOW parameter module tbese Sep-1984 4: VAX=-11 s-32 V 7 
yoLe000" NMLSSHOWENTITY Show volatile entity parameters 1 ~fep-t 198 99: 34 36 M1 SK$V nen TER: CNA” She NMLSHOW.832; 1 - (3) | 
: 260 0258 1 END; ! End of NMLSSHOWENTITY 


TITLE wi SSHON NML SHOW parameter module 
-IDENT \v04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 


1200 

04 “ADDRESS NML ST _LISTBUFFER 
of __ tADDRESS NMLST _P2BUFFER 
14 “ADDRESS NMLS$T_ENTBUFFER 
.PSECT SOWNS$,NOEXE,2 
00000 NML$T -LISTBUFFER: 
00480 NMLST_P2BUFFER: 
00650 NMLST_ENTBUFFER: 
00690 NMLSB_ADJACENCY FOUND: 
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1200 
416 


NML$Q -+ STBFDSC= P.A 
NML$Q_P2BFDSC= P.AAB 
NML$Q~ Seb 34+ P. 


NML$GQ_ENTSTRDSC 


*EXTRN NAL $ “NML_NM RMSEM 
“EXTRN NMLS$ AB-RECEUR “WACEAL Te ENT INE TAB 
*EXTRN Nat SAC “PERMINE TAB 

“EXTRN NMLSAW"PRM_DES, NMLSGB_CMD_VER 
*EXTRN NAL S68” ENTITY “CODE 
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NMLSGETNODADR, NML$ 
NML$S 


NMLS$NETQIO 


NMLS$SHOWPARL IST 


SCODES ,NOWRT ,2 


NMLSSHOWENTITY, Save R2,R3 
#36, SP 


-(SP) 
TABDES 
NFBDSC 


INF 
ENTITY, R2 


#, an, EET EO TABS 
Re, #1 


R2, #21 
R2, #19 

#1, LEN 

P2bsC 

NL $0__P2BFDSC 


RO 
STAT 


US, 3$ 
P4 DATA_DSC+4, P4_DATA_PTR 


P4_DATA_PTR 
P4~DATA~DSC 
ABDES 


za- 
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ATA_DSC 
NMC$GQ_QIOBFDSC 
P2DSC 


NFBDSC 
#4, NMLSGETDATA 
STATUS 
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; Routine Size: SCODES + 0000 
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NALS NML SHOW parameter module 16-Sep-1984 234: 
S800" NMLS$SH LTIPLE Show multiple entitys paramet 13-808=1 382 90:35:38 


VAX-11 Bliss-3 
DI R 


2 V4. 


X=1 
SKSVMSMASTER: CNML 


s 2 23 1 ZSBTTL "NMLSSHOWMULTIPLE Show multiple entitys parameters’ 

3 6 6 1 GLOBAL ROUTINE NMLSSHOWMULTIPLE (ENTITY, INF, FORMAT, ENTITY_ADR, 

; 64 6} QUAL_PSf, QUAL_LEN, QUAL_ADRY : NOVALUE = 

; 28 88 1 44 

3 44 rf: : FUNCTIONAL DESCRIPTION: 

: 9 8 08 1! This routine reads the volatile data base entries for KNOWN or 

: £9 : } ACTIVE entities cf the specified type. 

: 7 § e . First the buffers are built which describe the entity type and 

s e7 8 Bs the information required for the SHOW request (STATUS, CEMMARY , 

: 74 ~~ CHARACTERISTICS, or COUNTERS). These buffers are then given to 

: 75 i 1! the ACP in a 10 request. The ACP returns the requested information 
; 76 75 1! for as many entities as will fit in the P4 buffer. The information 
; 77 0274 1! for each entity is formatted into a NICE weesees and returned to 

: 78 0275 1! NCP. After each circuit is formatted, search the adjacency database 
3 79 0276 1! for all nodes adjacent to that circuit and return a NICE message 

3 sey 0378 ! for each node containing it's adjacency information. 

: 282 0279 1! The Q10 is repeated until all entities of the specified type have 

: ser 0280 1! been returned by the ACP. : ” 

; «284 0281 1! 

g See 0 o¢ 1! 

H 86 028 1 ! FORMAL PARAMETERS: 

3; 287 0284 1! 

; 288 0285 1! ENTITY Entity type code. 

; 289 oSa$ 1! INF Information type code. 

: 290 0287 1! FORMAT NMASC_ENT_KNO => Get KNOWN entities. 

; 291 0288 1! NMASC_ENT_ACT => Get ACTIVE entities. 

3 $36 0289 1! NMASC_ENT_ADJ => Get ADJACENT nodes. 

; 2g 0290 1! NMASC_ENT_LOO => Get LOOP nodes. 

; 294 0291 1! >0 Length of entity ID (if there is a qualifier on the 
: 295 5954 1! SHOW command, it is essentially a multiple show). 

; 296 0293 1! ENTITY_ADR Used only if there is a qualifier on the command 

3 awe 0294 1! because the qualifier makes it essentially a multiple 
; 298 8892 1! SHOW command. 

: 44 0296 1! QUAL_PST Address of qualifier's entry in the Parameter 

: 300 0297 1! Semantic Table (PST). 

: 301 0298 1! QUAL_LEN Length of qualifier ID string. 

; 4 0299 1! QUAL_ADR Address of qualifier ID string. 

; 30 0300 1! 

: 36 $302 2 BEGIN 

; 306 $308 5 

; 307 0304 LOCAL 3 

; 308 0305 8 : REF seLp K ' Pointer used to build NFB. 

; 309 B08 NF BBUF : BBLOCK (254), ' Buffer in which to build NFB. 

; 310 030 NFBDSC : DESCRIPTOR, ' Pointer to NFB descriptor. 

: 511 Bap6 P2BUF : BBLOCK CNMLSK_P2BUFLEN],! P2 butter 

3 i 0 P2_BUFFER_DSC: DESCRIPTOR, ! Descriptor of empty P2 buffer. 

; 10 P2_DSC : DESCRIPTOR, ' Descriptor of P2 contents. 

> 314 11 P4"BUF : BBLOCK CNMLSK_QIOBFLEN),! P4 buffer. 

s 319 ig P4 BUFFER_DSC: DESCRIPT ! Descriptor of empty P4 buffer. 

: 1 1 T : REF DESCRIPTOR, ' Pointer to Information Table desc. 
: 1 314 ENTITY_CNT ' Count of entities returned by NETACP. 
: 318 0315 P4_DATA_DSC : DESCRIPTOR, i Return P4 buffer descriptor. 
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32 V4.0-74 P 1 
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33 
ae 
ad 
vm 
xx 
5 
re 
“9 
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1 
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et canned NFB and Information Table descriptors for single entity show. 
hen modify them to do a plural show. 


4 aes POINTER) = NFBBUF ; 


NFT _TABDSC, 
R_DSC COSC$W_LENGTH] = NAL Sk P: BUFLEN: 
R7D ¢ DSCSA-POINTER) = POBUF 


te] 
ABS (ENTITY, .INF, NFBDSC 
HOWBUFS (ENTITY, .FORMAT, .ENTITY_ADR, 


1); 


WN "OC OONOULSWN—O” 


.Q0AL_PST 
p4 BUFFER_DSC CDSC$wW_CENGTH) = NALSK QIOBFLEN; 


SSBIEAE 


STATUS = NMLSGETDATA (NFBDSC, P2_DSC, P4_BUFFER_DSC, P4_DATA_DSC); 
IF .STATUS THEN 


BEGIN 
NMLSGL_PRS_FLGS CNMLSV_PRS_ENTITY FOUND] = TRUE; 


! The first longword of the P2 buffer contains the number of 
! entities returned in the P4 buffer. Then ca 
cng Stemi chi atta to return the data in the P4 buffer 


' 
ENTITY_CNT = .(.P2 
NML_PROCESS_MULT_B 


PEERS 
DONO NEW "OOO NOufwn— 


DSC CDOSCS$A_POINTER)); 
OFFER (.ENTITY, INF, 

.QUAL_PST, .QUAL_LEN, .QUAL_ADR 
Se TABDSC, P4_DATA_BSC,  .ENTITY_CNT); 


Return an error response message to NCP if: 
An error other that end-of-file was returned by the ACP. 
An end-of-file error was returned by the ACP and : 
The sennene had a qualifier and the qualifier wasn't in the volatile 
atabase. 
The command was SHOW X-P GROUP yyyy and no such group was found. 


F NOT .STATUS THEN 
IF (. STATUS NEQ NML$_STS_CMP) If the error wasn't end-of-file 
‘ or 

((. STATUS EQL NALS S's CMP AND ! The error yes end-of-file and 

NOT .NMLSGL_PRS_FLGS CRMLSV_PRS_ENTITY_FOUND)) 
os ' no matches were found in ACPs database 

PRS_FLGS CNMLSV_PRS was sti AN 
n 


$GL 
TY EQL RMLSC_PROT_GRP AND ! E y = X25 group 
T GTR 0))) ! Group name specified 


Wt 
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SHOW parameter module 16-Sep-1984 00:34: VAX-11 TY s-32 V 
SSHOMMULTIPLE™ Shou multiple entitys paramet 1i-kep-1o8e (5:50.50 PERKSUMGMASTER CAME SRCINMLSHOW.832;1° 


NBL 
NAL 
z3 ; THEN 3 
75 & D_REPLY_(NMLS$AB MSGBLOCK, NICE MSG pst cpscsw, LENGTH]); ; 
ug 4 NICE NSC. pst COSCSA_POINTER] = NMLSAB sNOBUFF . 
77 & SEND (.NICE_MSG-DSC CDSCSA_POINTER], ; 
£8 ; abe .NICE_MSG_DSC POINTER) aay, ; 
0 80 END; ; 
0381 7 END; ! of | NMLSSHOWMULTIPLE ; 
001¢ 60000 ENTRY NIML $SHOWMUL TIPLE, Save R2,R3,R4 : : 
$e omoononc 903 Si falas’ LH rhe rpm : | 
FEFC CD FFOO cD 3 00006 NOVAB NF BBUF. daaseces ; ; 
04 AE OF 90017 PUSHAB TABDSC : ; 
FEF8 CD 9F OOOIA PUSHAB NFBDSC : ; 
7E 04 AC 7D OO1E MOVO ENTITY, =(SP) : ; 
000000006 00 05 FB 00¢ CALLS #5, NMLSGETINFTABS : ; 
FE8B CD 68 8F 9B 00029 MOV2BW #164, P2 BUFFER DSC : : 
PERC Gp FERS FE BBS, BVA oat oP BU LDS : : 
veh) TE OP SSS BUS, MEET : : 
Hoe $F Gooes puss npanur’C*-PSC : 3 
me KOS OB ee rim Eariay’ =? : ; 
00000000v 00 05 FB 00050 CALLS NMLSBLDSHOWBUF S : ; 
146 AE 0480 8 BO 00057 MOVW +1500 P4 BUFFER DSC : : 
18 AE 1C AE 9 9005p MOVAB po nity Pa BUFFER_DSC+4 ; 
3F 52 £9 $58 1$: BLBC STATUS, 2$ : : 
Oc AE SF 00068 PUSHAB P4 DATA_DSC : : 
red TE SE S88 PUB. peop FERn | : 
FEFB CD 9F b095 PUSHAB NFBDSC : ; 
00000000v 00 04 FB 00076 CALLS #4, NMLSGETDATA : ; 
32 DO 0007D Ov RO; EATyS ; 
64 3 i $0 g BISB2 3 NMLSGL_PRS_FLGS : ; 
53 FEB4 DD DO 00 MOVL aP2_DSC+4 “ENTITY Y_CNT : : 
53 DD PUSHL ENTITY CNT : ; 
10 AE 9F 0008D PUSHAB P4 DATA_DSC : ; 
08 AE 9F 000 PUSHAB TABDSC ~ : ; 
7E 18 AC 7D MOVa = QUAL -LEN. -(SP) : : 
14 AC DD 0009 PUSHL  QUAL~PST : : 
7E 04 AC 7D OOO9A mova. ENTITY, <(SP) : ; 
00000000v 00 08 re tt CALLS ry NML PROCESS _MULT_BUFFER ; 
FFFFFFFO  8F i D4 OOA 2%: cHPL TATUS, #-16 ; 
35 64 03 £6 00085 BBS #3, NMLSGL_PRS_FLGS, 4$ : : 


| 5 
NAL SSHOW NML SHOW parameter modu 16- -Sep-19 
yo~000 + 


le 
NMLSSH LTIPLE Show auitiete entitys paramet 1 


31 64 02 €1 44 
10 04 AC O01 88 
28 1 BC 
oc af D B 
26} C 
ge A af ¢ 
000000006 F 2 ha 
woveevare 00 FB cf 
0 AE 000000006 3 58 
7E 04 AE 3C 4 
OC AE 0d 000D 
000000006 00 02 FB Odes 
04 000 


; Routine Size: 234 bytes, Routine Base: S$CODE$S + OOAB 


-Sep-19 


75 VAX-11 Bliss-32 V4.0-74 
a ss 


NMLSGL_PRS_FLGS, 4$ 
fete *18 


FORMAT 


NICE_MSG_DSC 
NHC ERB: NSGOLO 
mt NMCSBLD_R 
NM 
NICE_MSG_DSC, 
NICE-MSG_DSC+4 
#2, RMLSSEND 


SESE OS _ee 


DISKSVMSMASTER: CNML. SRCJNMLSHOW.B32; ,e 


PO rn i ee ee ie ae a ee ie ie ee ee ie ie ee ee ee ee ee ee ee ee ee 


node address 


vuvuv 


RRRLRLLRLRREK RRR RRR EEE 


ABD, ' Search key 1 


POPORY 2 st tc 


UENO OONOUSWN “OC OONOUSWN— 


ANICE MSG_DSC: DESCRIPTOR, ' NICE response message Seger ipter. 


P4 _DATA_PTR, i Pointer to data in buffer. 


STA 
ciacuif _TYPE, 


Following are fields used for issuin pecondary Q10s to adjacency 
: database. Used for SHOW ADJACENT NODES CIRCUIT <circuit id>. 


ips .P oe BBLOCK CNMLSK PepUrLEN) 
ADJ"P F_DSC: DESCRIPTOR, scr iptor for empty P2 buffer. 
ADJ-P “DSCT DESCRIPTOR; buffer descriptor 


P4 DATA_PTR = .P4_DATA_DSC sche POINTER); 
ADJ P2_BuF_DSC ([DSC$w_CENGTH) = NALSK P BUF LEN; 
ADJ~P2~BUF DSC CDOSCSA“POINTER] = ADJ_P2_BUF; 


AA AI AIO POPO POPP POPUNNY 3 2 2 oe 
BEGUN 2S SOUP UN HCODNOUFWN HO on 


oe oe ot oP le ot ot ot ot at ot ot ot at Ot tk eee 


RRR 
V=OSH WS 


12 5 
NMLSSHOW wal SHOW parameter module Sep 4 4: VAX-11 Bliss-32 V e 14 NALS 
vo%~000 NML_PROCESS_MULT_BUFFER Show multiple entitys 13788871382 99: 3 36 DISKSVMSMASTER: CNM OS RCINML SHOW. B32;1 ;°0 (5). V04- 
: ¢ 1 ZSBITL "NML_PROCESS_MULT_BUFFER Show gener entitys parameters’ 
; 1 ROUTINE NML_PROCESS_MULT_BUFFER (ENTITY, IN 
: 388 QUAL_PSf, QUAL_LEN, QUAL_ADR 
; 89 5 TABDSC. 64 _DATR_DSC, ENTITIES_IN_P4) : NOVALUE = 
: 391 : 1 t+ 
3 36 3 1 | FUNCTIONAL DESCRIPTION: 
; » 32 This routine is called only by NMLSSHOWMULTIPLE after it has 
> 394 90 1! a P4 buffer with the information for a number of so tetas to 
; 395 0391 1! be returned to NCP. For each entity in the P4 buffer, the 
; 96 0 3 routine builds a NICE message and sends it back to NCP. | 
; 98 § 94 1 | FORMAL PARAMETERS: 
: 399 0395 1! 
; 400 38 1} dal Entity ID | 
: 401 97 1! Information type code. 
; 40 98 1! QUAL _PST Address of qualifier's entry in the Parameter 
; 40 0399 1! Semantic Table (PST). 
: 404 0400 1} QUAL_LEN Length of qualifier ID string. 
: 405 0401 1! QUAL~ ADR Address of qualifier ID string. 
; 406 0402 1! TABDSC Information table descriptor 
: 40 0403 1! P4 D Descriptor of data in P4 buffer 
; 40 0404 1! ENTITIES. in. P4 Number of entities for which there is information 
: 409 0405 1} in the P4 buffer. 
3 0406 1 i- 
; 0407 1 
; 0408 § BEGIN 
; 0409 | 
; 0410 2 MAP 
: 04 § P4_DATA_DSC: REF DESCRIPTOR; 
° ' 
; 5 NFB to show an entry in NETACPs adjacency database. 
; ; SNFBDSC (NML$Q_ADJ NFB, SHOW,, AJI 
; : gCIR. ! Search key 2 = circuit name 


RF 
oo 


5 | 

NAL SHOW per eneter module 16-8 Sep-1984 : 3: 38 VAX-11 Bliss-32 V ge 15| 
v04 NML_PROCESS_MULT_BUFFER Show multiple entitys 14-Sep-1984 Disk KSVMSMASTER: cui” she NML SHOW .B32; ? (5) | 
; “7 i WHILE CENTITIES_IN_PS = .ENTITIES_IN_P4 = 1) GEQ 0 DO | : 
; 4645 4) Format the entity's data into WICE response : 
; 446 rr i message. . 
: 44 44 i ) ; 
; 46468 444 BEGIN 3 
; 449 45 STATUS = 
; 450 44 SELECTU Ntity OF ; 
; 451 44 SET : 
s §@ $ 448 : : 
> 45 49 i Save the circuit type for the call to show the service adjacencies. : 
: : ¢ 3 | Save the circuit ID for the call to show the adjacencies. | : 
: 45 43¢ CNMLSC CIRCUIT: | : 
; 45 453 4 ; 
5 458 0454 4 CIRCUIT _TYPE = 5iP4 DATA, PTR; ; 
; 459 0455 4 4_DATA_PTR = .P4_DATA_PTR : 
; 460 9456 4 ENTITY CEN =. (Par DATK PTR) <b, 16>; ; 
; 461 045 & ENTITY “ADDR = PS _BATA_P TR + 2; ; 
; 46 0458 H END; : 
; 46 0459 ! : 
; tee Rees ; The NICE command is SHOW ADJACENT NODES CCIRCUIT <circuit id>J. : 
; 466 046 CNML$C_ADJACENT_NODEJ: ; 
; 467 0463 4 BEGIN F 
; 468 464 4 : 
: 469 465 4 i If the NICE command is qualified (1.£. SHOW ADJACENT NODES ; 
: 470 0466 4 i CIRCUIT <circuit id>) don't return the node's information . : 
: ot) Been : unless it's in the adjacency database for the specified circuit. : 
: 47 0469 4 IF .NMLS$GL_PRS_FLGS CNMLSV_PRS_QUALIFIER] THEN 
: 474 0470 5 BEG! 
; 475 0471 2 STATUS = FALSE ; 
: 47 047 ENTITY _LEN 
; 47 04735 5 ENTITY_ ADDR = * Pad 
> 478 0474 5 NMLSBLBP2 ( (ENTITY “PENS Entity ADDR, |! Search 1 = node address 
3: 479 0475 5 QUAL_LEN, .. JADR, i Search 2 = circuit name 
> 480 0476 5 ADJ_P2_BuF DSC, i P2 buffer descriptor 
; 481 0477 5 ADJ-P2-DSCY; i Return P2 buffer desc. 
; 48 0478 5 STATUS = NMLSGETORTA ‘NML$Q ADJ NFB, ADJ “P2_D 
; 48 0479 5 0, 0); 
; 484 0480 4 END; 
; red 0481 END; | 
: tB9 7 4 CALWAYS): 
; 488 0484 
; 489 0485 Build the NICE nee onse message and send it to NCP. 
; 490 ety] ' Status is talse y_ if 1 am processing a 
; «6491 8 ' SHOW ADJACENT NODES” CIRCUIT nee ircurt id> and the | 
; 49 88 ' node in the P4 buffer is not adjacent on the specified 
3; (49 $83 ' circuit. 
° 494 ' | 
3; «495 91 4 BEGIN 
: rhs 138 4 NMLSPROCESSDATA (.ENTITY | 
; 49 495 4 
: 498 494 & 3P4 DATA.DSC, 
; 499 0495 4 4_BATA_PTR, 


F 5 | 
NALS NML SHOW parameter module 16-Sep-1984 00:34: VAX-11 Bliss-32 V4.0-74 Page 16: 
yoss000" NML_PROCESS, MULT BUFFER Show multiple entitys 18-808-1 382 99:35:35 DL EKSVMGMASTERSENML  SRCINML SHOW. B32: . ey 
; & 4 NICE_MSG_DSC); ‘ 
0} hs a IF .STATUS THEN it | 
; 8 Bre BEGIN : 
; 304 289 ! Don't send the wiCe message here for circuits. The ‘ 
; 505 1 ! adjacency information for the first adjacency must | : 
; 88 $08 still be added to the message. | : 
; 08 504 IF .ENTITY NEQ NMLSC_CIRCUIT THEN : 
; 509 505 NMLSSEND (.NICE_ASG DSC weln POINTER] : 
; 510 306 .NICE_MSG_DSC COSCSW_LENGTHS); ; 
eb} 23 4 END; : 
3 \§ 506 END; : 
ee )| 0509 : 
; al 9319 CNMLSC_CIRCUITI: | : 
; 316 Bag ! For circuits, the first NICE message returned for each circuit. : 
; Si 051 ! contains the circuit's information from the NETACPs CRI (circuit) ‘ 
>; 518 0514 ! database plus the first adjacency information from NETACP's . 
; 319 0515 ! AJI (adjacency) or SDI (service adjacency) database. Then the . 
; 520 0516 ' subsequent adjacencies are returned one to a NICE message : 
; 2 1 Bele ; } containing only the circuit ID and the adjacency information. . 
: 358 0519 4 BEGIN : 
; ase B $ IF .INF NEQ NMLSC_COUNTERS THEN : 
: 526 0522 5 NML$B_ADJACENCY_FOUND = 0; | : 
3 der 05 5 STATUS = NML_SHOW_ADJACENCIES (NMLS$C_CIRCUIT_ADJACENT, : 
; 528 0524 5 - INF, .ENTITY_LEN, .ENTITY_ADDR, 3 
3 267 B36? 5 -QUAL_PST, .QUAL_LEN, .QUAC_ADR, 3 
s 0526 5 NICE_MSG_OSC); ; 
s 33) 0527 5 ! : 
- Sa 9528 5 ' The service adjacency database contains no node information 3 
; 533 0529 5 ' (hence no need to look if there's an adjacent node qualifier 3 
3 age B2 : on the command) and applies only to NI circuits. : 
3 330 O29¢ 5 IF (NOT .NMLSGL_PRS_FLGS CNMLSV_PRS_QUALIFIER]) AND : 
3 S37 O38 5 -CIRCUIT_TYPE EQC NMASC_CIRTY_NI~ THEN 3 
; 538 0534 5 STATUS = NML_SHOW_ADJATENCIES (NMLS$C_CIRCUIT_ADJ_SRV, : 
; 539 0535 5 - INF, .ENTITY CEN, .ENTITY_ADDR, 3 
; 540 0536 5 -QUAL_PST, .QOAL_LEN, .QUAC_ADR, : 
; ee) Beer : : NICE_ASG_DSC); : 
; ks B278 2 ! If there is no adjacency information for the circuit in either | : 
: ee 540 ! adjacency database and the NICE command isn't qualified by an | 3 
: 545 0541 5 ! ADJACENT NODE (in which case the lack of adjacency information 3 | : 
; 248 b246 : means there's nothing to return), return just the circuit information | : 
; 8 544 : IF .NML$B_ADJACENCY_FOUND EQL 0 AND : 
; 549 545 (NOT .RMLSGL_PRS_FLGS CNML$V_PRS_QUALIFIER]) AND : 
; 550 346 .STATUS EQL AMLS$"STS_CMP THE ; 
3 a3) 54 NMLSSEND (.NICE MSG DSC CDSCS$A_POINTER) 3 
; 3 548 .NICE_MSG_DSC COSCSW_LENGTH); | ; 
: 5 549 END : 
3; 554 550 4 SE : 
g 6399 551 4 NMLSSEND (.NICE_MSG_DSC PRSCSA POINTER) 3 
; 556 0552 4 «NICE_MSG_OSC COSCS$W_LENGTH)); : 


5 
NALS NML SHOW parameter module 1hese -1984 234: VAX-11 Bliss $o3e 17, 
yose000" WAL PROCESS MULT BUFFER Show multiple entitys iZakep-19Re $o:80.56  NIEKDUMCMASTER CWME SRCSNMLSHOW.832:1°% cde 


"yf feces 


H 5 8 END; 
61 5 END; ! of NML_PROCESS_MULT_BUFFER 


ee —— | 


»PSECT SPLITS,NOWRT,NOEXE,2 


00000014 00018 P.AAD: .LONG 20 F 
00000000" 0001C -ADDRESS U.1 3 
-PSECT SOWNS,NOEXE,2 
00601 -BLKB 3 
22 00604 ;_NFB 

U -BYTE 34 ; 
99 00605 -BYTE 0 F 
13 00606 -BYTE 19 ; 
00 00607 -BYTE ; 
13010010 Bpe0e - LONG 18832656 : 
13020042 006DC - LONG 18898242 ; 
00 006E0 -BYTE 0 ; 
00 006E1 -BYTE 0 ; 
0000 006E2 -WORD QO 3 
00000000 006E4 «LONG 0 é 

U.2= P.AAD 


-PSECT S$CODES,NOWRT,2 


OFFC 00000 NML a BUFFER: 


Save R2,R3,R4,R5,R6,R7, a8. R9,R10,R11 ; 0383 


5B 00000000V 00 9€E 00002 MOVAB NML_SHOW ADJACENCIES, 
5A 00000000' 00 9€ 00009 MOVAB NMLSB ADJACENCY "FOUND, RRO 
59 000000006 00 9€E 00010 MOVAB NAL SEND, R 
58 000000006 00 9€ 00017 MOVAB NMLS$GL_PRS_FLGS, R8 
3 80 AE 9 O01E MOVAB <-128(SP), SP 
5 1¢ AC DO 000 OV. P4 A dsc, R3 
04 A3 DD 000 § PUS 4(R3) 
OC AE 68 8F 98 000 MOV 7b #104 ADJ Pe BUF _D 7 
10 AE 14 AE 9 99 § MOVAB J_P2 8B 4 abs BUF _DSC+4 0438 
20 ac OD 1$: DECL cK RITTIESTL 0439 
01 18 000 BGEQ 
04 009 RET 
56 01 09 0039 2s: MOVL STATUS 0445 
52 04 AC DO 0003C¢ MOVL ENfIY. 0446 
09 32 D1 ans CmPL R2, #9 0452 
57 00 BE 06 4 ROVL @P4_DATA PTR CIRCUIT_TYPE 0454 
6 4 ¢ 49 DDL2 #4,7P4 DATA PTR 0455 
00 ¢ af nV? apé_DATA PTR ENTITY_LEN 0456 
54 6E Ci DL3 #2, 7P4_DATA_PTR, ENTITY_ADDR 0457 
06 D1 00054 38: CRee Ro. #6 462 
6 12 00057 BNEO 


Pete Se Se Ge Se Se Se Se Se Se Ge Se Ge Se Se Se Be Se Be Be Oe & 
o Oo 
- = 
Ww 
o 


] 
HS 
NALS NML SHOW parameter module 16-Sep 4: VAX-11 Bliss-32 V4.0-7 18) 
yore000" NML_PROCESS_MULT_BUFFER Show multiple entitys 12-389 Sep -1982 99: 4 36 DISKSVMSMASTER: CNM sre NMLSHOW.B832; 4 — a 
32 4a ge gi 00 9 BBC #2 NMLSGL _PRS_FLGS, 4$ : 0469 
f D CLRQ = ENTITY > 04 
54 90 BE F MOVL aps DATA. PTR, ENTITY_ADDR + 047 
4 AE 9F 00063 PUSHAB P2_DS + 0474 
10 AE OF 66 PUSHAB ADs me “Bur _DSC : 
14 BC DD 6 PUSHL + 0475 | 
10 AC ODD C PUSHL Ae : 
24 DD 00 oF PUSHL cua FADDR + 0474 
5 DD 000 | PUSHL ENTITY rgEN ; 
000000006 00 06 FB 007 CALLS #6, NMC SBLDP2 : 
AE OF ooore PUSHAB ADJ. P2_DSC i) 
00000086" 5 F a0¢t PUSHAB U. 3° - : 
00000000v 90 4 FB 00 85 CALLS #4, NMLSGETDATA : 
é 0 pO 0008C MOVL RO, STATUS : 
7c «AE OF OO0BF 4$ PUSHAB Nite MSG_DSC + 0492 
04 AF OF 009¢ PUSHAB DATA_PTR : 
53 DD 0009 PUSHL RS” + 0494 
18 BC DD 00097 PUSHL aTABDSC + 0493 
04 AC DD OO09A PUSHL TITY + 0492 
00000000v 00 95 FB 0009D CALLS ey I WAL SPROCESSDATA : 
10 6 €9 OO0A4 BLBC STATUS, 5$ + 0497 
09 04 AC 01 000A7 CMPL ENTITY: "9 + 0504 
OA 13 900 BEQL $ ; 
7E 7C AE 3C OO0AD MOVZWL NICE_MSG_DSC, =-(SP) + 0506 
FC AD ODD 00081 PUSHL NICE-MSG-DSC+4 : 0505 
69 9g FB 00084 CALLS #2, RMLSSEND : 
09 D1 00087 5$ CMPL 2, #9 + 0510 
SE 12 OOOBA BNEG : 
03 08 AC D1 9008¢ CMPL INF , : 0520 
4E 13 000C BEQL $ ; 
6A 94 000C2 CLRB = NMLS$B ADJACENCY. F OUND : 0522 
7C «AE OF 00064 PUSHAB NICE_ASG : 0523 
7E 10 AC 7D 000C7 mMOVa QUAL “LENT Ost sp) > 0525 
0C AC 0D 000CB PUSHL QUAL ~PST ; 
54 0D OO0cE PUSHL ENTITY_ADDR > 0524 
55 DD 000D PUSHL EN TITY, “LEN ; 
08 AC 0D 000d PUSHL _INF F 
OA DD 0000 PUSHL #10 > 0523 
68 08 FB 000 CALLS #8, NML_SHOW_ADJACENCIES : 
56 50 D0 OOODA MOVL RO. STAT : 
1E be 08 EO 000DD BBS #2. NMLSGL_PRS_FLGS, 6$ ; 0532 
06 D1 O00E1 CMPL CIRCUIT_TYPE, #6 : 053 
19 12 0 £4 BNEQ 6s : 
7c «AE OOF E6 PUSHAB NICE_MSG_DSC : 0534 
7E 10 Ac 7D OE VQ QUAL “LEN, (SP) : 0536 
0C AC DD OO0ED PUSHL AL“PST ; 
24 DD OO0F PUSHL ENTITY_ADDR + 0535 
5 DD OOF PUSHL ENTITY“LEN : 
08 AC DD 000F PUSHL : 
DD 0 F7 PUSHL #1 > 0534 
68 F 9 CALLS , NML_SHOW_ADJACENCIES ; 
56 p OOFC MOVL ATU : 
6A OFF 6$: STB NAC $8 ADJACENCY _FOUND > 0544 
3 68 92 E 103 BBS NMLS$GL_PRS_FLGS, 8$ > 0545 
FFFFFFFO 8F D1 001 CMPL SFATUSS #-T6 : 0546 
| 


5 
e 


© NML SHOW parameter module é-§ -1984 00:34: VAX-11 Bliss-32 V4.0-74 Page 19 
vad tit NML_ PROCESS _MUL “BUFFER Show multiple entitys | ~3e0 7} 38e 99:35:38 DT EKSVMEMASTERSCNPL SRCINMLSHOW.03251 . (33 


OA }é 19F BNEQ 8$ 3 
7E 7C AE 110 7$: MOVZWL NICE_MSG_DSC, =(SP) : 8336 
FC AD OD 15 PUSHL NICE oe DSC+4 ; 055 
69 02 FB 0011 CALLS #2, RMLSSEND : 
FF16 Hy 11A 8$: BRW 1 ; 0439 
4 00110 RET ; 0557 


. Routine Size: 286 bytes, Routine Base: $CODE$ + 0195 


5 
L_SHOW parameter module 18- Sep-1984 00:34: X-11 s-32 V4 
NALSSHOW. IRCUIT Show volatile circuit parame 14-Sep aati 12:30:28 bts SK$V nen TER: CNML. ORC INAL SHOW. B32;1 o- (BS 


es 


V 


$3 
S2 


: 563 28 1 ZSBTTL “NMLS$SHOW CIRCUIT Show volatile circuit par ongter ; 
>; 564 1 GLOBAL ROUTINE NALS$SHOW_CIRCUIT ad ITY, INF, FORMAT tere ADR ; 
; 565 60 AL_PSf, QUAL_LEN, QUAL_ADRY : NOVALUE = : 
5 $$ 266 1 !e¢ $ 
; 568 2? 1 § FUNCTIONAL DESCRIPTION: 3 
$ $3 208 } ; his routine shows volatile circuit parameters. ‘ 
; 71 0566 1 ! FORMAL PARAMETERS: ; 
s $7 567 1! s 
s DT 0568 1! ENTITY Entity ID ; 
3 ie b2$? . 3 INF Information type code. ; 
3s 37> a2 FORMAT Entity format or Length of entity id string. : 
3 Sf 8253 1! ENTITY_ADR Address of enti ty id string H 
s Srr 276 1! QUAL_PST Address of gyal) ier's ontty in the Parameter : 
3 278 0575 1! Semantic Table (PST). ; 
: 579 0574 1! QUAL_LEN Length of qualifier ID string. : 
; 580 0575 1! QUAL_ADR Address of qualifier ID string. 

; 581 R278 1! 

; abe 0577 1 !-- 

; we 0578 1 

; 584 0579 BEGIN 

; 4585 0580 ! 

; 586 0581 ! First, return the information in the circuit database. 

; 587 p28¢ ! 

; 588 058 LOCAL 

; 589 0584 STATUS, 

; 590 0585 P4 _DATA DSC : DESCRIPTOR, ' Q10 data descriptor 

s 391 0586 P4~DATA_PTR ! Pointer into P4 buffer 

: 396 0587 NICE_MSG_DSC : DESCRIPTOR, i Output message descriptor 

; 59 0588 NFBDSC : REF DESCRIP TOR, ' NFB descriptor 

: 594 0589 P2DSC_ : DESCRIPTOR ! P2 parameter descriptor 

; 595 0590 TABDES : REF DESCRIPTOR, ! Information table descriptor 

: 596 0591 CIRCUIT_TYPE; 

; 597 0236 

: 598 059 ! 

; 599 0594 ' Get NFB, table, and P2 buffer. 

; 600 0595 ! 

: rt B29 NMLSGETINFTABS (.ENTITY, .INF, NFBDSC, TABDES, 0); 

3 rst Bene NMLSBLDP2 (.FORMAT, .ENTITY_ADR, -1, 0, NML$Q_P2BFDSC, P2DSC); 

3; 605 $280 STATUS = ty Niemi (.NFBDSC, P2DSC, NML$GQ_QIOBFDSC, P4_DATA_DSC); 

; 606 368) IF .STATUS THEN 

; & BEGIN 

; 608 060 P4_DATA ores = .P4 DATA_DSC CDSCSA_POINTER); 

; 609 0604 CIRCUIT cee = ..P4_DATA ates, 

; 610 0605 DATA_PTR P4 DATA PTR + 

; oN Pons NACSPROCESSDATA Le “PATTY, TABBES, P4_DATA_DSC, P4_DATA_PTR, NICE_MSG_DSC); 

; gig $608 Now, return the information from wd | rt: B ogiacency database (AJI) and 

; 614 0609 ' service ad acency _Sesenecs (301). dW command specifies a node, 

: 615 10 i it is spec tied he qualifier inlaonetton: so only that adjacent 

: o1¢ iy } node's Caleraatten eiel be returned. 

; 618 eis if - INF NEQ NMLSC_COUNTERS THEN 

; 619 0614 4 "BEGIN 


a 
53 


5 
rs) See sotattie circuit parame 1 12-8 + 1984 99: 36; 38 be KOVR nen trace 


L 
; 620 15 * NML$B_ADJACENCY_FOUND = 0; 
; 621 18 4 STATUS = NML_SHOW ORO DACENCIES (NMLSC_CIRCUIT “6 vee 
3; 6 é 1 4 INF, .FOR RAAT eENTITY 
; 6 18 4 -QUAL_PST, . QUAL LEN, “QUAL. ADR, 
; 6 4 19 é ' NICE_ASG_6SC); 
; 6 $ . = ! The service adjacency database contains no node information 
,; © § 4 ' (hence no need to look if there's an adjacent node qualifier 
3 ° $ 7 Q on the command) and applies only to NI circuits. 
; 650 625 4 IF (NOT .NMLSGL_PRS go or rtey PRS =2UAL IF SERD) AND 
; 631 $ 4 CIR CUIT _TYPE EQC NMASC_CIRTY_N 
a © ; 4 STATUS = NML_SHOW NAD JACENC L Es" (NRL t =CIRCUIT ADJ_SRV, 
; é 5 é “dua ae at _ADR, 
; 6 5 Oe 9 4 NICE_MSG_BSC); 
; 637 06 § 4 ! +! there is no adpocenty information for the circuit in either 
; 638 $83 4 ! odlacency database and the NICE command isn't qualified by an 
; 639 0634 4 ! ADJACENT NODE (in which case the Lack of adjacency intoras tion 
3 oY sth ? : means there's nothing to return), return just the circuit information 
3 otg pe38 4 if -NALSB tre FOUND EQL 0 AND 
: 64 BS38 4 (NOT -NMLSGL_PRS— _FLGS CNMLSV_PRS_QUALIFIER]) AND 
> 644 0639 4 «STATUS EQL AMLS_STS_CMP THER 
; 645 ere 4 NMLSSEND (. oa “MSc_DSC CDOSCSA_POINTER] 
3 646 41 4 NICE_MSG_DSC COSCSW_LENGTHI); 
3; 647 Bose 4 END 
; 648 064 ELSE 
: 4 bees NMLSSEND (.NICE_MSG_DSC CDSCSA_POINTER], .NICE_MSG_DSC CDSC$W_LE\\.THI); 
3; 651 0646 ELS 
3 638 0647 EGIN 
; 65 0648 NMLSBLD_REPLY (NMLS$AB_MSGBL LOCK. E_MSG_DSC COSCSW_ LENGTH); 
; 654 0649 NICE onSG. DSC CDSCSA_ POINTER s ‘sis SNBBUF FER; 
; we 0650 END; 
: 656 0651 
3; 657 0652 RETURN .STATUS; 
; 658 0655 1 END; ! End of NMLSSHOWCIRCUIT 


007c 00000 .ENTRY NMLSSHOW CIRCUIT, Save R2,R3,R4,R5,R6 
56 900000006 00 9E 60002 MOVAB NMLSGL_PRS FLGS, R6 
55 00000000v 00 9€ 000 MOVAB NML_ SHOW ADJACENCIES, R 
54 00000000' 00 H 0019 MOV NALS A ADJACENCY _FOUND, R4 
5E 4 ¢ ot SUBL 
E p4 1A CLRL th 
4 AE 9F O001C PUSHAB DES 
C AE 9F OOOTF PUSHAB NFBDSC 
7E 4 ac 70 2 mova ENTITY. SP) 
000000006 00 05 FB CALLS Wad SGET INF TABS 
o¢ AE OF D PUSHAB 4 S 
00000000' : 9F 00 0 PUSHAB NML$Q_P2BFDSC 
E D4 CLAL = = (SP) 


RECN: OSRCSNML SHOW. B32; ;39 


; 0559 


0596 


0598 


NALS NML SHOW parameter module 1b-5¢ VAX-11 $s-32 V4.0-7 
vat NMLSSHOW_CIRCUIT Show volatile circuit parame 1 ~300 71382 99: 36; 38 DISKSVMSMASTER: CNML. she NMLSHOW.B32; ? a 


; Routine Size: 256 bytes, Routine Base: $CODES + 0283 


f 0c g sf 35 move’ Fokmat® mtr : 
000000006 ze ' 0 FB CALLS #6, Nat $BLDP2 : msen 
000000066 0p $f 3 PUSHAB NAC SGO_ alosrDsc ; | 
10 AE DD PUSHL AFBeSc : 
00000000v 4 F 2g CALLS Pe NML SGETDATA : 
D C MOVL RO. STA ATUS 
0 3 : bee BLBS STAT 1s . + 0601 
008 06¢ BRW iS : 
08 ag 20 AE D 0 : 1$: MOVL P4_DATA_DSC+4, P4_DATA_PTR + 0603 
a E D A MOVL.  a@P&_DATA_PTR, CIRCUIT_TYPE + 0604 
08 AE 4 f 006 ADDL2 #4,~P4 DATA_PTR + 0605 
16 AE OF 007 PUSHAB Nie SG pst + 0606 
of AE 9F 0007 PUSHAB P4_DATA_PIR ; 
4 AE 9F 0007 PUSHAB P4~DATADSC ; 
OC AE DD 00078 PUSHL TABD : 
04 AC DD 0007E PUSHL ENTITY : 
00000000v 00 ve 05 FB 0081 CALLS a3 z_NALSPROCESSDATA Pate 
4A 13 0008C BEQL : 
64 94 0008 CLR NL $8 ADJACENCY _FOUND + 0615 
16 AE OF 00 PUSHAB NICE_MSG_DSC + 0616 
7E 18 AC 7D 0009 MOV QUAL~LEN; -(SP) : 0618 
7E 10 aC 7D abd MOVa ENTITY_ADR, -(SP) : 0617 
7E 08 AC 7D 0009B Move INF, =TSP) : 
OA 0D 0909 PUSHL + 0616 
65 08 FB OOOA1 CALLS #8, Ni SHOW _ADJACENCIES ; 
53 50 DO O00A4 MOVL Rd, F 
1C 66 02 £0 90047 BBS am Ser PRS aftss- 2$ > 0625 
06 52 D1 OO0AB CMPL eeactnt _TYPE, # > 0626 
17 12 OOOA PNEQ 28 ; 
14 AG OF 0008 PUSHAB NICE_MSG_ + 0627 
7E 18 AC 7D 0008 MOVQ  QUAL“LEN; -(SP) + 0629 
7E 10 AC 7D 0008 MOVO ENTITY_ADR, -(SP) : 0628 
7E 08 AC 7D 000BB MOV INF, =-tSP)- ; 
0B DD 000BF PUSHL # : 0627 
65 08 FB 000C1 CALLS #8, Na SHOW_ADJACENCIES : 
53 DO 000C4 MOVL RO. US : 
4 95 000C7 2$ TSTB NAC SS. VADJACENCY _FOUND + 0637 
4 if 009 BNEQ 3 : 
0 66 02 €0 000CB BBS NL SGL ERS _FLGS, 5$ > 0638 
FFFFFFFO 8F 3 b OOCE CPL srArUs. : 0639 
7E 16 AE 3¢ D0ba 3$ MOVZWL NICE SG _DSC, =(SP) > 0644 
1¢ AE DD 0000C PUSHL NIceon 5G ~DSC+4 : 
ALL AML : 
000000006 00 0 FB ODF CAL § SSEND nen 
14 ar F Oe? 4$: PUSHAB NICE MSG_DSC : 0648 
000000006 00 9F 0 EA PUSHAB 1) MSGBLOCK : 
000000006 00 FB FO CALLS #2, NACSBL REPLY : 
18 AE 000000006 9E OOF MOVAB  NMLSAB_ SRBBOFFER. NICE_MSG_DSC+4 > 0649 
04 OOOFF S$: RET > 0653 
| 
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0-74 Page 24 
DISKSVMSMASTE aN SRCINFL SHOW.B3251 ° 3 
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; 660 § 4 1 ZSBITL "NML_SHOW_ADJACENCIES Show circuit node adjacencies' :] 
; 661 5 1 ROUTINE NML_[SHOW_ADJACENCIES (ENTITY, INF, ENTITY LEN, ENTITY_ADDR, : 1] 
; 66¢ 06 $ 1 QUAL_PST, QUAL_LEN, QUAL_ADR, : | 
; 66 657 1 NICE-MSG_DSC) = 7] 
> 664 Be28 1 | 
; 665 06 1 +4 : 1 
; 208 Bend 1 ! FUNCTIONAL DESCRIPTION: 3] 
; 66 661 1! This routine is called for SHOW CIRCUIT commands. It is called after ; 1 
; 668 p66 1! the circuit's information has been retrieved from NETACP's CRI database : 1 
; 669 0665 1! and formatted into a NICE message. This routine gets buffers of ; 1 
; 670 0664 1! adjacency information for the circuit from NETACPS AJI database. :] 
; 671 665 1! The first adjacency is added to the NICE messege containing the circuit's : 1 
3 Of 666 1! info from the CRI database. The others are all returned in individual : 1 
; 67 0667 1! NICE messages. 3] 
: 674 0668 1! 3] 
; 675 0669 1! 3] 
; 676 0670 1 ! FORMAL PARAMETERS: a | 
; 677 0671 1! 3] 
; 678 0672 1! ENTITY Entity ID 31 
; 679 0673 1! INF Information type code. : 1 
; 680 0674 1! ENTITY_LEN Length of circuit ID :] 
; #4681 0675 1! ENTITY_ADDR Pointer to circuit ID string. 3 | 
; 68 0676 1! QUAL_PST Address of qualifier's entry in the Parameter 3} 
; 68 0677 1! Semantic Table (PST). 3] 
; 0678 1! QUAL_LEN Length of qualifier ID string. - 
> 685 0679 1! QUAL_ADR Address of qualifier ID string. , 3] 
; 686 0680 1! NICE_MSG_DSC Address of descriptor of NICE message which contains : 1 
; 687 0681 1! circuit info. Add the first adjacency info to this =) 
; 688 0682 1! message. 3 1 
; 689 0683 1 !-- 3] 
; 690 0684 1 3 | 
: 691 0685 BEGIN 2 
; 0686 31 
; 69 0687 P 31 
3 694 0688 NICE_MSG_DSC: REF DESCRIPTOR; 3] 
; 695 0689 24 
; 696 0690 LOCAL 2 
3; 697 0691 P4_DATA_PTR, ! Pointer to data in P4 buffer. 3 1 
; 698 069 TAT $1 
; 699 069 ADJ_NFB BUF: BBLOCK (256), ! Buffer for adjacency data base NFB. 3 1 
: 700 0694 ADJ“NFBDSC: DESCRIPTOR ! NFB descriptor 3 1 
: 703 0695 ADJ-TABDSC: REF DESCRIPTOR, | Information table descriptor 3 | 
; 70 0696 ADJ~P2_BUF: BBLOCK CNML$K_ P2BUFLEN 31 
: 70 97 ADJ~P2-BUF_DSC: DESCRIPTOR, ! Descriptor for empty P2 buffer. 3 | 
: 704 038 ADJ—~P2-DSCz DESCRIPTOR, ‘ ffer descriptor #3 
: 705 06 ADJ_P4_BUF: BBLOCK CNMLSK_QIOBFLEN $ | 
: 706 9700 ADJ“P4"BUF_DSC: DESCRIPTOR, | P4 buffer descriptor 3 | 
: 707 701 ADJ~P4-DATA_DSC DESCRIPTOR,! P4 buffer data descriptor 3 | 
; 708 70 ADJ_P4 DATA_PTR, ! P4 buffer data pointer : 

: 709 70 ADJACERCY_COUNT, ' Number of adjacency entities returned in P4. 3 | 
: a re MSGSIZE; 2 | 
3 ar) 7 ADJ_NFBDSC CDSCSA_POINTER] =_ADJ wre BUF ; > 
: 71 7 ADJ~P2_BUF_DSC COSCS$W_LENGTH) = AMLSR P2BUFLEN; ‘.s 
> 714 708 @ ADJ~P2-BUF-DSC EDSC$A-POINTER] = ADJ P2 BUF; 3 
: 715 709 ADJ—~P4"BUF-DSC COSCSWILENGTH) = NMLSR_QTOBFLEN; ie 
; 716 0710 ADJ~P4"BUF-DSC CDSCSA_POINTER] = ADJ_P4_BUF; : 
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NML SHOW parameter module 18-56 -1984 00:34: VAX-11 Bliss<-32 V4.0-74 Page 25 
ML_SHOW_ADJACENCIES Show circuit node adjace 12786871382 99:35:38 DLSKSVMGMASTERSENML SRCINMLSHOW.B32: 1 . 3 
1 
1 
1 
1 
1 
1 for the circuit. If there is a node qualifier, include that as the 
1 second search key. 


NMLSBLDSHOWBUFS (.ENTITY, 
-ENTITY_LEN 
-ENTITY-ADDR, 
ADJ NFB BUF, ADJ_P2 BUF DSC, ADJ_P2_DSC, 
-QUAL_PST, .QUALLER, .GUAL_ADR); 
MSGSIZE = .NICE_MSG_DSC COSCSW_LENGTH]; 


WHILE .STATUS DO 
BEGIN 


Get a buffer full of adjacency information for the circuit. 
STATUS = NMLSGETDATA (ADJ_NFBDSC, ADJ_P2_DSC, 


“P4_BUF 
ADJ~P4~DATA_DSC); 
IF .STATUS THEN 
BEGIN 


ADJACENCY COUNT = .(.ADJ_P2_DSC COSCSA_POINTER)); 
ADJ_P4_DATA_PTR = .ADJ_P&_DATA_DSC COSCSA_POINTER); 


i For each adjacency in the buffer, build a NICE message containing 
ao Serene returned in the buffer. Then send the NICE message 
i o 


WHILE  CADJACENCY_COUNT = ,ADJACENCY_COUNT -1) GEQ 0 DO 
' 


i If this is the first adjacency, include the adjacency info in 


SODWNAUN EWN $9 ODNAU EWN (OOD DNAU EWN OOONOULS WN 1 


PUPA AGIVIVIVIVINIVT AANA 


NMLSGETINFTABS (.ENTITY, 
ADJ_NFBDSC, 

' ADJ-TABDSC, 1); 
Build the buffers (NFB, P2. and P4) to get phe adjacency information 
' r 
! 

4 

4 

4 

4 

4 

4 

4 

4 

4 

5 

5 

5 

5 

5 

5 

6 

6 

6 

6 

6 

6 

6 

6 

6 

| 


g : the circuit NICE message already started by the calling routine. 

§ IF wt! -NMLSB_ADJACENCY_FOUND THEN 

754 NMLSB_ADJACENCY_FOUND = 1; ; . 
755 ADJ_P&_DATA_PTR™= . (,ADJ_P4_DATA_PTR) <0, 16> + ! Skip the circuit ID. 
7 § ~ADJ_P4_DATA_PTR + 2; 

7 NMLSSHOWPARLIST (NML$GQ_SNDBFDSC, 

758 MSGSIZE 

759 .ADJ_ TABDSC, 

760 -P4_DATA_DSC 

761 ADJ"P4~DATA-PTR); 

76 NICE_MSG_DSC COSC$W-LERGTH) = .MSGSIZE; 

76 END 

ne: ELSE 

76 ' If the circuit info and the first adjacency infe has already been 
76 ' returned to NCP, format each of the rest of the adjacencies into a 


ie et Ee eg _ . 


< 


ee ae ee a a a ee 


0 i A ee 


Be Be Se Se Se Se Be Oe Oe SHS e Se Be Se FH Se Ge Be Se FH Se Ge Se Se FH Se Se Se Se Fe Ge Se Se Se FH Se Se SHS FH Se Se Se Se SH Se Se Se Se SH Se Se Se Se Se eees 
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NML SHOW parameter module 1$-sep-19 4 90: 36:30 VAX-11 Bliss-32 ve Ores Page $6 
NML_SHOW_ADJACENCIES Show circuit node adjace 14-Sep-1984 12:50: DISKSVMSMASTER: CNML.SRC JNMLSHOW.832;1 (7) 
; f 76 ' NICE message of its - without repeating the circuit information 
§ of? 6 except for the circuit ID. 
; os 771 6 N 
; 778 ak 6 NMLSPROCESSDATA (.ENTITY 
: 779 773 6 .ADJ_TABOSC, 
: 780 774 6 ADJ_P4_DATA_DSC, 
: 781 775 6 ADJ_P4_DATA_PTR, 
3 ree ae -NICE_ASG_DSC); 
; 78 77 END; 
; | 784 ire 
; 785 77 NMLSSEND (.NICE_MSG_DSC CDSCSA_POINTER] 
; 786 786 -NICE_MSG_DSC COSCSW_LENGTHS); 
; er 781 & END; 
: 788 14-04 3 END; 
: 789 ore END; 
; 790 Bf 4 : ; 
; 791 At, ' If the Q10 failed for any reason other than end-of-file (no adjacencies were 
: re 0786 ' found), return an error to NCP 
; 79 0787 ! 
; 794 0788 IF NOT .STATUS AND 
; 795 0789 ~STATUS NEQ NMLS_STS_CMP THEN 
: 796 0790 BEGIN 
s 97 0791 NMLSBLD_REPLY (NMLSAB Peek ack» NICE_MSG_DSC CDSCS$W_LENGTH)); 
; 798 1454 NICE_MSG_DSC COSCSA_POINTER) = NMLSAB_SNDBUFFER; 
; 799 079 NMLSSEND™ (.NICE_MSG_DSC CDSCSA_POINTER) 
: 800 0794 .NICE_MSG_DSC COSCSW_LENGTHS); 
: 801 0795 § END; 
:; 80 0796 RETURN .STATUS; 
; 80 0797 1 END; ! of NML_SHOW_ADJACENCIES 
007C 00000 NML_SHOW_ADJACENCIES: 
~WORD Save R2,R3,R4,R5,R6 ; 0655 
56 00000008 00 9€ 00002 MOVAB NMLSSEND, 3 
55 00000000' 00 9€ 00009 MOVAB NML$B_ADJACENCY_FOUND, R5 ; 
5E F9B4 CE 9E 00010 MOVAB <-1612TSP), SP ; 
FEFC CD FFO CD 9E 00015 MOV ADJ_NFB_BUF, ADJ_NFBDSC+4 : 0706 
FE88 CD : 8F 98 0001 MOVZBW #102, ADJ _P2_BUF : 0707 
FE8C CD FE D 9E 000 MOV ADJ 62_BUF, ADJ P2_BuF_DSC+4 : 0708 
14 AE 0480 F 8 8 MOVW #1200 J_P4 BOF ; 0709 
18 AE 1C AE 9 : MOV ADJ_P4_BUF> ADJ_P%_BUF_DSC+4 > 0710 
0 D 00 PUSHL #1 3 0712 
046 AE F 00 PUSHAB ADJ_TABDSC ; 
FEF8 CD 9F 00039 PUSHAB ADJ_NFBDSC : 
900000006 90 OS EB o44 CALLS #5. NACSGETINF TABS 
7: 18 AC 7D 00048 VQ = QUAL_LEN, ~(SP) ; 0725 
14 AC 0 4C PUSHL QUAL_PST 3 
FE CD OF O004F SHAB ADJ_P2_ : 0721 
FE CD OF ; PUSHAB ADJ_P2_ BUF DSC : 
FF CD OF PUSHAB ADJ : 
7E C AC 7D 6 B mova ENTITY_CEN, -(SP) : 0732 
4 AC OD F PUSHL ENTITY ; 0721 
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areneter modu 


; Routine Size: 


i 


A? 
7E 


66 
50 


Routine Base: 


000000 


000000006 
000000006 
04 


FP PWOSCCMFPIOUMMIDONO 
m soo 


SCODES + 0383 


1) 5 
ies circuit node adjace « 3eb- 1986 99: 36; 38 
00000000V ? 


1 
1 
§ 
Dd 


1 
4 
7 
? 


6 
07 
07 
88h 
ts 
FB 00085 
4 08C 
E F 
D0 § 
4 009 
dD? 0009C 
19 0009 
5 449 
QOA 
C QO0A6 
CO 4 4 
9E oon 
oF B308 
9F 0008 
DD 0008 
9F OO0BC 
9F QOOBF 
FB Q00CS 
80 94 
11 000 
DD tS 
9F 0000 
oF 0000 7 
DD OOODA 
DD 000DD 
FB 000 0 
3C QO0E? 
DD QOOEA 
FB QOOED 
11 000 § 
D1 000 
13 QOOF9 
DD OOOFB 
9F 000 g 
FB 3 
3 10A 
C 001 g 
DD 001 
Fe 0118 
DO 00118 
04 OO11E 


23: 


3$: 


4$: 


5$: 


#9, NMLSBLDSHOWBUF S 
thas as MSG 


J 

ADJ_P4 BATA_DSC+ 

ADIRCERCY COUNT 
. 


NML $B ADJACENC 
NAL SB ADJACE 
Sabu DATA 


ADJ f “DATA PTR, RO 


zrre 
ee” es) 
@ 


12 

NMLSGQ_ § NDBFDSC 
SACS SHOUPARLIST 

nsésize E, (R2) 
a3 
ADJ_P4_DATA_PTR 
ADJ~P4~DATA_DSC 
ADJ “TABDSC ~ 


TY 
#5, NMLSPROCESSDATA 
(SP) 


(Rd), = 

4(R25 

#2, NMLSSEND 

AS 

R2 

NMLSAB MSGBLOCK 


NMCS$BLD 
aes SNDBOFFER, 4(R2) 


4(R2 
iF NMLSSEND 
STATUS, RO 


VAX=11 Bliss-32 V4.0-7 
DISKSVMSMASTER:CNML. SRC NML SHOW .B32; 1 


C+4, ADJACENCY_COUNT 
+4, ADJ_P&S_DATA_PTR 


OUND, 3$ 
CY_ FOUND 


NNO 
Moron 


oe OO Vw 


Se Pe Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se Be Se Se Ge Se Be Ge Se Fae Be Fe Se Ge Se Fe Be Ge Ge Be Be Be 
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NAL SHOW pereneter module 16-Sep-1984 90: 36:38 VAX-11 Bliss-32 abet os Page 4° 
NMLSSHOW_KNOWN_LOOP Show known Loopnode paramet 14-Sep-1984 12:50: DISKSVMSMASTER: CNML.SRC JNMLSHOW.B32; 1 (8) 


atest 
eS 85 


; 805 798 1 XSBTTL “*NMLSSHOW_KNOWN LOOP Show known loopnode parameters’ ; } 
; 80 494 : GLOBAL ROUTINE NALSSHOQ_KNOWN_LOOP (ENT, INF, DUM1, DUM2) : NOVALUE = : 4 
: 8 01 1 !+4 31, 
; 0 1 ! FUNCTIONAL DESCRIPTION: : }; 
; 8) 1! e 2) 
; 811 04 1 | at 
; aie 805 1! Loop nodes. ° ! 
; 81 94 1; ‘ 

; 814 80 1 ! FORMAL PARAMETERS: i] 
; 815 08 1! 7) 
3 B18 sf 1! ENT Entity type code. e } 
; 81 10 1! INF Information type code. ‘ 

; 818 811 1! DUM! Not used. i] 
; 819 OB1¢ 1 i DUM2 Not used. st 
: $ 0815 1! ef 
; 821 0814 1 i-- i] 
; 8e¢ 0815 1 : | 
; & Ba18 BEGIN : 

; Bee 081 i] 
; 825 0818 2! aa 
3 558 $84 Counters are not supported for loop nodes. ‘ : 
; $56 083 IF .INF EQLU NMLSC_COUNTERS THEN : t 
; e¢p 08 ; URN; ° 

; 830 O85 NMLSSHOWMULTIPLE (NMLSC_LOOPNODE, .INF, NMASC_ENT_LOO, 0,. ‘ 1 
; 831 0824 - 0, 0); !"No qualifier 2) 
; 832 0825 i) 
; 83 0826 1 END; ! End of NML$SHOW_KNOWN_LOOP : t 


0000 00000 ENTRY NMLSSHOW_KNOWN_LOOP, Save nothing ; 0799 
03 08 AC 01 00002 CMPL INF, #3 ; 0821 
11 13 00006 BEQL 

7E 7C 00008 CLRQ -(SP) ; 0823 

43 7C Beene CLRQ -(SP) : 

7E 03 CE 0000C EGL 3, (SP) : 

08 AC ODD QOO0F PUSHL : 

05 DD 00012 PUSHL #5 : 

FBCO CCF 07 FB 00014 CALLS #7, NMLSSHOWMULTIPLE ; 
04 00019 1$: RET ; 0826 


This routine reads the volatile data base entries for all 
; Routine Size: 26 bytes, Routine Base: S$CODE$S + 0402 


a 
53 


0 Od Cd 09 OD OD CD CD OD OD CD CD CD OD OD CD OD GD CD CD CD CD CD CD CD CD 
y at et el ee a et ee 
DONO VEWN OC OONOUS WN -O0@ 


PAA 


SESFeeeS 


ss 


ESEESESNEE 
SSeS AFAS—SS 


seeee 


os 
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NAL Fe pereneter module 1o~s007 138% 90: 36:3 


Bliss-32 v4.0-7 NAL 
NALS DEBYNAME Show volatile node paramete 14-Sep-19 S 


VAX-11 i 0-74 Page 29 
DISKSVMSMASTER: CNML.SRC JNMLSHOW.B32;1 . 3 Vv04: 
ZSBTTL *NMLSSHOWNODEBYNAME Show volatile node parameters’ 

GLOBAL ROUTINE NMLSSHOWNODEBYNAME (ENT, INF, LEN, ADR) : NOVALUE = 


'e4 
FUNCTIONAL DESCRIPTION: 


This routine returns volatile information about the single remote 
node or loop node specified by name. 


FORMAL PARAMETERS: 


i 

i 

i 

i 

i 

, ENT Entity type code. 
: INF Information type code (index). 
; LEN Length of ent ty id string. 

| se 

! 


ADR Address of ent id string. 


' 
0850 P4_DATA_PTR, ! Pointer into P4 buffer 
0851 ENTCODE; ! Internal entity code 
bees LOOFLAG ' Loop node flag 
085 NICE_MSG_DSC : DESCRIPTOR, i Output message descriptor 
0854 NFBDSC : REF DESCRIPTOR, ! NFB descriptor 
0855 P2DSC_ : DESCRIPTOR ! P2 parameter descriptor 
0856 TABDES : REF DESCRIPTOR; i Information table descriptor 
0858 NMLSGETINFTABS (NMLSC_NODEBYNAME, .INF, NFBDSC, TABDES, 0); 
0859 NMLSBLDP2 (.LEN, .ADR> -1, 0, NMLSQ_P2BFDSC, P2DSC); 
0861 STATUS = NMLSGETDATA (.NFBDSC, P2DSC, NMLSGQ_QIOBFDSC, P4_DATA_DSC); 
pee¢ IF .STATUS THEN 
086 BEGIN 
0864 ENTCODE = NMLS$C_NODEBYNAME; 
0865 P4_DATA_PTR = .P4_DATA_DSC CDSCSA_POINTER]; 
OBe? ! If this is a loop node then get different data from NETACP. 
43 ! The P2 buffer is rebuilt because NETACP returned a collating 
869 ! value in the P2 buffer from the first Q10 - this collating 
5f0 ' value will cause NETACP o start looking AFTER the loop node 
14 ust found, so it won't find it. 
598 LOOFLAG = .(.P4 DATA _PTR)<0,32>; ! Get loop node flag 
are IF “LOOFLAG NEQD 0 TREN 
Br NMLSGETINFTABS (NML$C_LOOPNODE, ty NFBDSC, TABDES, 0); 
87 NMLSBLDP2 (.LEN, .ADR; -1, 0, NML$Q_P2BFDSC, P2DSC); 
78 STATUS = NMLSGETDATA (.NFBDSC, PODSC, NML$GQ_QIOBFDSC, P4_DATA_DSC); 
6 1 Nae = NMLSC_LOOPNODE; !' Set entity type to loop node 
1 ELSE 
Ht “ P4_DATA_PTR = .P4_DATA_PTR + 4; ! Skip over the loop node flag. 


1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
0845 2 BEGIN 
084 
084 LOCAL 
0848 STATUS 
849 P4_DATA_DSC : DESCRIPTOR, ' Q10 data descriptor 
4 
4 
4 
4 
4 
| 
| 
J 


NML_ SHOW 
NMLSSH 


| 


5 


9 
90 


9 
089 


1 
2 


arameter module 
DEBYNAME Show volatile n 


IF .STATUS THEN 

geht SPROCESSDATA (.ENTCO 
BEGIN 

NMLSBLD_REPLY CNML SAB ” 

NICE MSG_DSC CDSC$A_POI 

NAL SSEND (.NICE_MSG_DSC CDS 


28 000000006 
57 00000000v 
26 9444414443 
55 000000006 
54 00000000" 
5E 
04 
OC 
08 
68 
oc 
7 
7E oc 
65 
1¢ 
14 
10 
67 
53 
63 
52 
08 AE $e 
50 8 
04 
be 
8 
68 
oc 
aa: 
65 


ode paramete 18-Sep-1984 99:35:30 DLSKSVMGMASTERSCNML SRCSNMLSHOW.B32;1°"° (a 


DE, .TABDES, P4_DATA_DSC, P4_DATA_PTR, NICE_MSG_DSC) 
SGBLOCK, NICE_MSG_DSC CDSC$W_LENGTH]); 
NTER) = NMLSAB_SNDOBUFFER; 


CSA_POINTER], .NICE_MSG_DSC CDSC$W_LENGTH)); 
' End of NMLSSROWNODEBYNAME 


O1FC 00000 ENTRY NL SSHOWNODEBYNAME Save R2,R3,R4,R5,R6,R7,-; 
00 9€ 0000 MOVAB NMLSGETINFTABS, RB : 
99 9E 0000 MOVAB NMLSGETDATA, R? : 

0 9€ 90010 MOVAB NML$GQ_QIOBFDSC, R6 : 
00 9€ 9001 MOVAB NMLS$BLDP2, R : 
00 3 OO1E MOV NML$Q_P2BFDSC, R4 : 
24 C 00 SUBL2 #36, SP : 

E 04 00028 CLRL 0s =( SP) : 
AE 9F 00 A PUSHAB TABDES : 
AE 9F 0002D PUSHAB NFBDSC : 
2 cay : 

5 FB 0903 CALLS #5, NMLSGETINFTABS : 
AE 9F 00038 PUSHAB P20SC : 
ee a re | 
01 CE 0005 MNEGL #1, =(SP) : 
AC 7D 00042 Ova LEN, =-(SP) : 
06 FB 00046 CALLS #6, NMLSBLDP2 : 
AE 9F 00049 PUSHAB P4DATA_DSC : 
re br Ooode PUSHAB PS 
AE DD 00051 PUSHL NFBDSC : 
04 FB 00054 CALLS #4, NMLSGETDATA : 

: DO 00057 MOVL RO. STATUS : 
53 £9 O005A BLBC STATUS, 3$ : 
04 00 0005p MOVL #4, ENTCODE ; 
AE D0 0006 MOVL  P4 DATA_DSC+4, P4 DATA_PTR : 

E 00 9006 MOVL § @P%_DATA_PTR, LOOFLAG : 

BEQL ~=*'1$ : 

E ps 0068 CLRL = = (SP) : 
AE OF 0 6p PUSHAB TABDES : 
AE 9F 000 9 PUSHAB NFBDSC : 
AC DD 07 PUSHL _INF : 

DD ds PUSHL a : 

5 FB 7 CALLS #5, NMLSGETINFTABS : 
AE 9F 00078 PUSHAB P20SC ; 
a : 
01 CE : MNEGL #1, (SP) : 
AC 70 MOVO. LEN, -(SP) : 
06 FB 00089 CALLS #6, NMLSBLDP2 : 


; 0861 


) 


0828 


0858 


0859 


oooooo 


0877 


NAL 
v04 


voo000" 


1c af oF C 
5 pp F 
14 AE OF 1 
10 AE OD 94 
7 4 F 97 
3 g D 9A 

Dd 9 

08 A d ( A 1 
7 3 f9 on 2 
14 AE OF L) 
C AE oF pac 
4 AE OF AF 
C AE 0D ter 
52 0D 0008 
00000000v 00 0 fe Bpee 
18 1 0B 
14 AE 9F QO0CO 3S: 

000000006 8 9F 000C 
000000006 00 FB 4494 
18 AE 000000006 0 3 0000 
7E 14 AE 3C sree 9° 

1¢ AE 0d 000 
000000006 00 02 FB O000DF 
04 000E6 


; Routine Size: 231 bytes, Routine Base: S$CODES + O4EC 


° 
NAL SSHOUNDDEBYNAME noy volatile node paramete 16- 38: 138 99: 36; 3 


VAX-11 Bliss-32 V4.0 


P4_DATA_DSC 


NFBDSC 
¥, ets Aeiaaag 
ne ENTCODE 


#4, P4_DATA_PTR 
STATUS, 3$ ~ 

NICE MSG_DSC 
sere 
TABDES 


D 
ENTCODE 
#5, NMLSPROCESSDATA 


NIC 
NASR Sstacock 
Woe NMCS$BLD_REPLY 
NAL $AB SNDBOFFER NICE_MSG_DSC+4 
NICE E-ee-D8 o-pees +4 ~($P) 
» NMLSSEND 


DISKSVMSMASTER:CNML. SRCSNML SHOW. B32; 479 
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NALS NML_ SHOW parameter module 1b-50 -1984 00:34: VAX-11 Bliss-32 V4.0-74 P 
yos~000" NMLSSHOWEKECUTOR Show volatile executor parame 12-8 08- 1 3be 99:35:36 DLEKSVMGHASTERSENPL  SRCINMLSHOW.B32:10 9° (105 


| 
i 
| 

; 90 93 1 ZSBTTL "NMLSSHOWEXECUTOR Show volatile executor eraneters. 

5 pit 3¢ : GLOBAL ROUTINE NMLSSHOWEXECUTOR (ENT, INF, DUM1, DUM2) : NOVALUE = | 

: 905 1 144 | 

: 906 9 ] | FUNCTIONAL DESCRIPTION: 

: 28 344 } This routine returns volatile information about the executor node. | 

; 910 38) 1 ! FORMAL PARAMETERS: | 

; «911 9 ¢ 1! 

3 at 905 1! ENT Entity type code. 

; FF Be INF Information type code (index). 

; 916 905 1! DUM1 Not used. 

3; 915 B08 1! DUM2 Not used. 

3 31g 0907 1! 

; 91 908 1 !-- 

: 918 909 1 

; 919 0910 BEGIN 

: 920 0911 

; 921 O3i§ LOCAL 

; F § 091 P4_DATA_DSC : DESCRIPTOR, ! Q10 data descriptor 

; F 0914 P4 DATA_PTR ! Pointer into P4 buffer 

: 924 0915 UMDSC = REF DESCRIPTOR i Dummy descriptor 

; 925 B31$ NICE_MSG_DSC : DESCRIPTOR, ! Output message descriptor 

; 926 091 NFBDSC : REF DESCRIPTOR, ! NFB descriptor 

3 tH 0918 P2DSC_ : DESCRIPTOR ! P2 parameter descriptor 

: 928 0919 TABDES : REF DESCRIPTOR; i Information table descriptor 

: 38 $954 

4 3a! 4 ¢ NMLSGETINF TABS (NMLSC_EXECUTOR, .INF, NFBDSC, TABDES, 0); 

3 338 0924 ' NETACP returns all executor node counters from both the executor (LNI) 

; He 34 5 } or the remote (NDI) data bases. 

Z 388 8 ; IF .INF NEQ NMLSC_COUNTERS THEN 

F 3 494 NMLSBLDP2 (-1, 0, -1, 0, NMLSQ_P2BFDSC, P2DSC); 

: oe O38) co NMLSGETDATA (.NFBDSC, P2DSC, NML$GQ_EXEBFDSC, NML$GQ_EXEDATDSC) 

3 ase 09 : 4 BEGIN 

: 94 0934 4 

3 944 0935 4 NMLSBLD_REPLY (NMLS$AB_MSGBLOCK, NICE_MSG_DSC CDSC$W_LENGTH)); 

> 945 0956 4 NMLSSEND (NMLSAB_SNDBOFFER, .NICE_MSG_DSC CDSC$wW_LENGTH)); 

; 946 9 4 RETURN 

3 947 0938 4 

; 948 0939 END; 

; 949 0940 

; 950 0941 NMLSGL_EXEDATPTR = .NMLS$GQ_EXEDATDSC CDSCSA POINTER); 

; 951 ot NMLSGETINFTABS (NMLSC_NODE> .INF, NFBDSC, DOMDSC, 0); 

: 926 94 END; 

; 95 944 

3 +e Bee NMLSBLDP2 (0, 0, -1, 0, NMLS$Q_P2BFDSC, P2DSC); 

3 $86 94 IF NMLSGETDATA (.NFBDSC, P2DSC, NML$GQ_QIOBFDSC, P4_DATA_DSC) 

:; 95 948 THEN 

: 958 949 BEGIN | 
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NML SHOW parameter module 1b-se -1984 00:34: VAX-11 Bliss-32 V4.0-74 P 3 
NMLSSHOWEXECUTOR Show volatile executor parame 1 ~30 71382 99:35:38 DT EKSUMGHASTERSCWHL SACINMLSHOW.83231° 7" (163 


9 
9 9 P4 DATA_PTR = .P4 DATA_DSC [DSCSA_POINTER); 
9 : NMCSPROCESSDATA (AMLSC"EXECUTOR, -TABDES, P4_DATA_DSC, 
3 ; P4"-DATA_PTR, NICE_MSG_DSC); 
$35 END 
9 ‘ ELSE 
33 BEGIN 
09 § NMLSBLD_REPLY (NMLSAB_MSGBLOCK, NICE_MSG_DSC CDSCS$W_LENGTH)); 
9960 NICE_MSG_DSC CDSCSA_POINTER] = NML$AB_SNOBUFFER; 
i hoe 
0964 NMLSSEND (.NICE_MSG_DSC CDSCSA_POINTER], .NICE_MSG_DSC CDSC$W_LENGTH)); 
0966 1 END; !' End of NMLSSHOWEXECUTOR 
O1FC 00000 ENTRY NMLSSHOWEXECUTOR, Save R2,R3,R4,R5,R6,R7,R8 ; 0894 
58 000000006 00 9E 00002 MOVAB NMLSGETI Ss, R ; 
57 000000006 00 9€E 00009 MOVAB NMLSAB_SNDBUFFER, R7 : 
36 000000006 00 9€ 00010 MOVAB NML$BLB é ; 
5 900000006 0 9 90017 MOVAB NMLS$AB_AMSGBLOCK, RS ; 
54 00000000V 00 9E 0018 MOVAB NMLSGETDATA, R4& ; 
53 000000006 00 9€E 000 MOVAB NMLS$BLDP2, R3 : 
52 00000000' 00 i: 000 ¢ MOVAB NM $0 P2BFDSC, R2 ; 
5E 8 C2 000 SUBL2 #40, SP ; 
E 04 00036 CLRL = (SP) : 0922 
04 AE 9F 00038 PUSHAB TABDES : 
10 AE 9F 00038 PUSHAB NFBDSC : 
08 AC DD 0003 PUSHL _INF : 
07 DD 00041 PUSHL 4&7 ; 
68 05 FB 00043 CALLS #5 Nil $GETINF TABS : 
03 08 AC D1 00046 CMPL INF, # : 0927 
55 13 OO04A BEQL 2$ : 
10 AE 9F 0004C PUSHAB PeDsc + 0929 
52 DD O004F PUSHL R ; 
7E 04 00051 CLRL. = = (SP) ; 
7E Qi CE 00053 MNEGL #1, -(SP) : 
E D4 0096 CLRL. = = (§P) : 
7 1 CE 0005 MNEGL #1, -(SP) ; 
4 : FB 00058 CALLS #6, NMLS$BLDP2 F 
000000006 9F 0005E PUSHAB NML$GQ_EXEDATDSC > 0931 
000000006 00 9F 00064 PUSHAB NML$GQ~EXEBFDSC ; 
18 AE 9F 0006A PUSHAB P2DSC F 
14 AE ODD 9060 PUSHL NFBDSC : 
64 4 FB 00 9 CALLS #4, NMLSGETDATA : 
10 0 E 007 LBS 1$ ; 
18 Ag F i: PUSHAB NICE_MSG_DSC > 0935 
DD PUSHL R : 
te 2 FB 9007B CALLS #2, NMLS$BLD_REPLY : 
t 18 AE 3C re MOVZWL NICE_MSG_DSC. -(SP) : 0936 
57 DD 0008 PUSHL R : 


— 
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t arameter module 1 
VoLe008 NAL SSHOWERE COTOR Show volatile executor parame 12:8 


11 BRB 5§ ; 
000000006 00 000000006 op D0 1$: MOVL § NML$GQ_EXEDATDSC+4, NMLSGL_EXEDATPTR + 0941 
—E D4 CLRL = (SP) + 0942 

08 AE OF PUSHAB DUMDSC ; 

10 AE 9F PUSHAB NFBDSC ; 

08 AC OD PUSHL ; 

0 DD 0009¢ PUSHL # : 

68 FB 0009 CALLS #5, NMLSGETINF TABS : 
AE 9F OOOA1 2$: PUSHAB P2DSC + 0945 

3 DD 000A4 PUSHL : 

E D4 ne CLRL. = (SP) : 

7E Qi ce OA MNEGL #1, =(SP) : 

— 7C 000AB CL -(§p F 

63 06 FB OOOAD CALLS #6, NMLSBLDP2 : 
20 AE 9F 0008 PUSHAB P4 DATA_DSC + 0947 

000000006 060 9F 000B PUSHAB NaC'$G0_ GIOBFDSC ; 

18 AE 9F 00089 PUSHAB ; 

14 AE DD 000BC PUSHL eposc ; 

64 4 FB OO0BF CALLS ph NMLSGETDATA : 

1C 0 €9 00Ce BLBC : 
OC AE 24 AE 00 000C MOVL = P4DATA_DSC+4, P4_DATA_PTR + 0951 
18 AE 9F OOOCA PUSHAB Nite MSG _DSC + 0952 

10 AE 9F O000CD PUSHAB A DATA. BTR : 

28 «AE OOF 99000 PUSHAB Bee DATA_DSC ; 

0C AE DD 0000 PUSHL  TABDES ~ : 

07 DD 9900 PUSHL # F 

00000000v 00 5 FB 00D CALLS #5, NMLSPROCESSDATA : 
C 11 000DF BRB + 0947 
18 AE 9F OOOE1 3S: PUSHAB NICE_ MSG_DSC + 0959 

55 DD O00E4 PUSHL ; 

66 02 FB 000E6 CALLS #2, NMLSBLD F 
1c AE 67 9E O00E9 MOVAB NL SAB SNDBOFFER, pNice _MSG_DSC+4 > 0960 
7E 18 AE 3C OOOED 4$: MOVZWL E_MSG_ DSC. > 0964 

20 AE DD O00F1 PUSHL Nice “MSG~D F 

000000006 00 02 FB OOOF4 5$: CALLS AMLSSE 4 ; 
04 000FB RET + 0966 


; Routine Size: 252 bytes, Routine Base: SCODE$S + 05D3 
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NMLSSHOWMUL TIPLE CWALSC_NODE, INF. 
-QUAL-PST, .QUAL_LEN, .QUAL_ADR); 
IF NOT .NMLSGL_PRS_FLGS CNMLSV_PRS_QUALIFIER] THEN 
Show loop node information. 
N“LSSHOW_KNOWN_LOOP (NMLSC_LOOPNODE, .INF, 0, 0); 
END; ! End of NMLSSHOW_MULTIPLE_NODES 
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NML SHOW parameter module 18-se -1984 00:34: VAX-11 Bliss-32 V4.0-74 Page 35 
NMLSSHOW_MULTIPLE_NODES Show multiple node par 1 ~300n 138% 99:35:38 TT EKSUVMCMASTERSCNML SRCINMLSHOW.B3251 . a} 
; 967 1 ZSBTTL ‘NMLSSHOW PUL TIPLE NODES Show out e tote node parameters’ 
; 3 1 GLOBAL ROUTINE NALSSHOW_MOLTIPLE_NODES (ENTITY, INF, MULT_TYPE, DUM1, 
; 44 ! GUAL_PST, QUAL_LEN, QUAL_ADR) : NOVALUE = | 
$ 971 1 !e4 
: 4 : FUNCTIONAL DESCRIPTION: 
s 974 1! This routine reads NETACPs volatile data base entries for known 
: 0376 : } or active nodes. | 
3 379 1 ! FORMAL PARAMETERS: 
s 978 1! ENTITY Entity ID (Entity Table index) 
: 979 1! INF Information type code. 
; 990 0980 1! MULT_TYPE NMASC_ENT_KNO => Get KNOWN nodes. 
; 0981 1! NMASC_ENT_ACT => Get ACTIVE nodes. 
; 99 0982 1! DUM! Dummy parameter. Normally address of entity id string. 
; 0983 1! QUAL_PST Address of qualifier's entry in the Parameter 
3 «994 0984 1! Semantic Table (PST). 
3; Ws 0985 1! QUAL _LEN Length of qualifier ID string. 
; 996 0986 1! QUAL _ADR Address of qualifier ID string. 
; 997 0987 1! 
; 998 0988 1 ! SIDE EFFECTS: 
; .999 0989 1! Destroys contents of NMLST_LISTBUFFER. 
: 1000 0990 1! 
3; 1001 0991 1 !<- 
3 O08 0992 1 
: 100 099 BEGIN 
3 Obe bag: IF NOT -NMLSGL_PRS_FLGS CNMLSV_PRS_QUALIFIER] THEN 
3; 1006 9996 ' Show the executor node information. 
3; 1007 099 ! 
3; 1008 0998 NMLSSHOWEXECUTOR (NMLSC_EXECUTOR, .INF, J, 0); 
: 1009 0999 
3 1000 ‘ 
: 001 ! Show remote node information. 
: 008 3h 
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000C 00 .ENTRY NMLSSHOW MULTIPLE NODES, Save R2,R3 > 0968 

53 000000006 00 9€ 6 MOVAB NMLSGL_PRS FLGS, R3 ; 

3 FEF F 43 MOVAB NMLSSHOWEXECUTOR, R2 ; 
OA 6 2 5 0 O5 BBS #2, NMLSGL_PRS_FLGS, 1$ > 0994 
— ?7C 0001 CLRO Os = ( §P) : 0998 


—— 
eos 
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NMLSSHOW NML_SHOW parameter module 
yo%~000 NMLSSHOW.MULTIPLE. NOD NODES Show multiple node par 


08 aC DD 00014 PUSHL _INF ; | 

0 DD 00017 PUSHL : 

$2 4 FB 00019 CALLS NML $ SHOWE XE CUTOR : 
E 18 AC 7D OO001C 1$: MOVa QUAL -(SP) : 1005 

14 AC DD 90 PUSHL QUAL -bEt" ; 
7E D4 00 CLRL “{SP + 1003 

7E 08 AC 7D 00 mova INF, -(SP) : 

03 DD 0 9 PUSHL : 

FADS ce FB 0 CALLS , NMLSSHOWMULTIPLE F 
0c 6 2 5 00 BBS NMLSGL_PRS_FLGS, 2$ + 1007 
—E ?C 000 CLRao = Hi) + 1011 

08 aC DD 90 PUSHL : 

8 DD PUSHL iy : 

FEFF C2 4 FB 0003B CALLS #4, NMLSSHOW_KNOWN_LOOP : 
04 00040 28: RET + 1013 


; Routine Size: 65 bytes, Routine Base: SCODES + O6CF 
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NAL SSHOW NML SHOW parameter module 16-Sep-1984 234: VAX-11 Bliss-32 V4.0-74 Pa 7 NAL 
VOL~000 NMLSGET-ENTITY IDS Get multiple entities 1ereen Re 98:85:38 Sb nGAAS ten ccloe sae Sum snow.es2:10 9" (135 voe 
TSBTTL "NMLSGET_ENTITY_IDS Get gulsipte entities’ 
GLOBAL ROUTINE AMLSGET“ENTITY_IDS (ENTITY, ENTITY_LEN, ENTITY_ADR, 
SHOW STARTED, LISDSC) = 


This routine is called for doing SET commands to get the Entity 

IDs to return in the NICE response messages for each entity updated. 
On the first call (when SHOW_STARTED is false), this routine 

sets up the Q10 buffers to get the IDs of the entities 

in the specitied ACP database. On all calls, this routine 
issues the SHOW Q10 to get a buffer of entity IDs. 


i FORMAL PARAMETERS: 


! 

1 

J 

! 

1 

' 

! 

! 

' 

t 

! 

1 

} ENTITY Internal entity type code. 

; ENTITY_LEN NMASC_ENT_KNO => Get KNOWN entries of entity. 
' >0 Get all entries of specified entity (which 
: is qualified and therefore has multiple entries). 
° ENTITY_ADR Address of ry ID string. 

' SHOW_STARTED FALSE=>start at ogioning of ACPs database. 
! LISDSC Address of longword to get List descriptor 
address. 

' 

! 

! 

' 

! 

1 

! 

' 

! 

! 

' 

! 
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i ROUTINE VALUE: 
COMPLETION CODES: 


If the Goser iptor is found for the specified entity then success 
(NML$_STS_SUC) is returned. If the end of the data base has been 
reached then an error is returned (NML$_STS_CMP). If any other 
error is encountered then a message is signalled. 


i SIDE EFFECTS: 
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! FUNCTIONAL DESCRIPTION: 
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9 

0 NONE 

; 3 

5 

064 5 BEGIN 
065 ; ' 
Os 5 Canned NFBs to get KNOWN entities. 
069 P : SNFBDSC (KNO_CIR_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, 
070 P 105 RI ! WMCSC_CIRCUITS 
071 P 106 NFBS$C_WILDCARD,, ' Search key 1 = wildcard, oper! = eql 
Ore ia Be WE BSC MELDCARD .« ! Search key 2 = wildcard, oper2 = eql 
074 P 106 SNFBDSC (KNO_LIN_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, 
075 P 1064 ! WMCSC_LINE 
076 P 1065 NFBS$C_WILDCARD,, i Search key 1 = wildcard, oper! = eql 
o7 P § NFBSC_WILDCARD,, ! Search key 2 = wildcard, oper2 = eql 
O78 P 3 SNFBDSC (KNO_SNK_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, 

80 P ' NMCSC_SIN 
081 P 1070 NFBSC_WILDCARD,, i Search key 1 = wildcard, oper! = eql 


? 


7 
8 
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; 1988 P ! q) EES WILDCARD.» ! Search key 2 = wildcard, oper2 = eql | : , 
; 1084 Pj 5g SNFBDSC (KNO_LOG_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, : ! 
; 1085 P 1074 EFI ! NMC$C_LOGGING ° 4 
: 10 P 1075 NFBS$C_WILDCARD,, i Search key j = wildcard, oper! = eal sf 
; eH P : f Sra rows LBCARD.» ! Search key 2 = wildcard, oper2 = eql .4 
: 1089 P 107 SNFBDSC (KNO_OBJ_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, : i 
; 1090 P 107 0B! ' NMCSC_OBJECT 4 
; 1091 P 1080 NFBSC_WILDCARD,, ! Search key 1 = wildcard, oper = eql - 4 
3 1936 P : 8 EECA WELDCARD. ! Search key 2 = wildcard, oper2 = eql 4 
; 1094 p 1085 5 snrepsc (KNO_LOO_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, sf 
; 1095 P 1084 NDI, ! NMCSC_LOOPNODE 4 
: 108 P 1085 LOO ! Search key 1 = loopnode, oper! = eql 4 
: 1097 P 108 NFBSC_WILDCARD,, i Search key 2 = wildcard, oper2 = eql : 
: 1099 P 1088 2 SNFBDSC (KNO_NOD_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, 7] 
; 1100 P 1089 NDI ' NMCS$C_NODE 7) 
> 1101 P 1090 NFBSC_WILDCARD,, i Search key 1 = wildcard, operl = eal 7] 
3 1108 P 1091 NFBSC_WILDCARD,, ! Search key 2 = wildcard, oper2 = eql ‘ ! 
3 110 1936 LOO, ABD ,NNA) ; ‘ 
: 1104 P 109 SNFBDSC (KNO_ACC_NET_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, 7] 
; 1105 P 1094 ‘ NMLSC_PROT_DTE | 2] 
; 1106 P 1095 NFB$C_WILDCARD,, ' Search key 1 = wildcard, oper! = eql :] 
: tte P 1998 EE cet eL BLAND os : Search key 2 = wildcard, oper2 = eql : : 
: 1109 P 1098 2 SNFBDSC (KNO_DTE_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, 7] 
; 1110 P 1099 ' NMCS$C_PROT_DTE :] 
: 1111 P 1100 NFBS$C_WILDCARD., i Search key-1 = wildcard, oper1 = eql 71 
; A P 1191 NFBSC_WILDCARD.. ! Search key 2 = wildcard, oper2 = eql 2} 
: 1114 P 1108 SNFBDSC (KNO_GRP_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, : 7 
3 1115 P 1104 XGI, ' NMC$C_PROT_GRP me | 
3 1116 P 1105 GRP ! Search key 1 = group name, oper! = eql 3 } 
; ET P 1198 NFBEC_WILDCARD, , ! Search key 2 = wildcard, oper2 = eql ‘ ‘ 
: 1119 P 1108 ; SNFBDSC (KNO_X25_DST_NFBDSC, SHOW, NFBSM BULT OR NFBS$M_ERRUPD, 3} 
: 1120 P 1109 xD ! NMLSC_%25_SERV_DEST 3 
3; 1121 P 1110 NFBS$C_WILDCARD.. ! Search key 1 = wildcard, operl = eql : 1 
3 1138 P EP 4 1 9S seals ! Search key 2 = wildcard, oper2 = eql | : t 
: 1126 P 1118 SNFBDSC (KNO_X25_TRPNT_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, | 37 
; 1363 P 1114 ¥ ' NMLS$C_TRACEPNT i | 
: 1126 P 1115 NFB$C_WILDCARD,, ' Search key 1 = wildcard, oper! = eql SS | 
; 11st P is NEGSC_WILDCARD., ' Search key 2 = wildcard, oper2 = eql : : 
> 1129 P 1118 SNFBDSC (KNO.X29_DST_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, | 
: 1130 P 111 ' NMLSC_%29_SERV_DEST 
> 1131 P 1120 NFBS$C_WILDCARD,, i Search key 1 =wildcard, oper! = eql | 
311 ; P i121 NFBSC_WILDCARD,, ! Search key 2 = wildcard, oper2 = eql 
311 11 § DST); 
MB Og 
: i é 1105 2! | 
s 11 11 $ ! NFBs to get ACTIVE entries (used only for logging database. Other | 
3; 1138 11 ! entities use NMLSSHOWMULTIPLE. | 

| 


NML 


modul Vv04 


odule 1 Bliss-32 V4.0-74 
Get multiple entities 


9:34:38 DL eKSVMSMASTER-ENML SRC NML SHOW.B32;1° 9° (13), 


' 


7 
16-Sep-19 4 
14-Sep-1984 


vou=000" 


To do the Q10, three buffers are needed: 
The NFB which ak gh a a which database to access and what 
rameters 


pa o return. 
The P2 buffer which tells NETACP which entity to return the 


data for. 
The P4 buffer in which NETACP returns the requested data. 

If this is the first call on NMLSGET_ENTITY_IDS for the operation, 

nd Build the P2 buffer for the SHOW 


| 
39 : 
40 P § SNFBDSC (ACT SNK_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, ESI, 
41 5 0 NFBSC_WICDCARD,, ! Search key 1 = wildcard, oper! = eql. 
“¢ P 1131 NFBSC-WILDCARD,, ! Search key 2 = wildcard, oper2 = eql. 
$2 ¢ SNK, STA); 
45 P 4 SNFBDSC (ACT _LOG_NFBDSC, SHOW, NFBSM_MULT OR NFBSM_ERRUPD, EFI, 
ag p 5 NFBSC_WICDCARD,, ! Search key 1 = wildcard, oper! = eql. 
4 P § NFBSC_WILDCARD,, ' Search key 2 = wildcard, oper2 = eql. 
48 SIN); 
49 : 
39 8 $ own 
2g 1 NFBDSC : REF egy 
5 é Pe BUF : VECTOR CNMLSK_P2BUFLEN], 
2¢ i P2BSC : DESCRIPTOR; 
28 5 BIND 
44 § P2_BUF_DSC = UPLIT (NMLSK_P2BUFLEN, P2_BUF) : DESCRIPTOR; 
59 8 LOCAL 
60 9 MSGSIZE, 
61 0 RESLEN WORD, 
6¢ 1 STATUS, 
6 § SRCHLEN1, 
64 SRCHADR1, 
65 ¢ SRCHLEN2, 
8 
9 
0 
4 
5 
6 


set up the start key, if there is one, 


Q10. The ACP writes a value into the P 


buffer so that, when the next SHOW 


Q10 is issued 


This way a buf f 


it knows how far in its database it got on the last call. 


er full of entity IDs is returned on each call, and subsquent 
calls return the next batch of entity IDs. 


Thus, the P2 buffer only needs 


to be built once for gece operation, and is used for multiple 
calls until all entities in the database have been returned. 


F NOT .SHOW_STARTED THEN 
BEG 


IN 
SRCHLEN) = -1; 
SRCHADR1 = 0; 
SRCHLEN2 = <1; 
SRCHADRe = 0; 


IF -ENTITY_LEN EQL NMASC_ENT_ACT THEN 
! Set up to get ACTIVE entity entries. 


PEVSSSERSSPANAS Baan SSS 


ee SS __._._..__... eee 
ee ee cee ec el eel ce el cl el cl el el ee cel el ce ce ec cel cD el cl cel cel cel cecal cl cel el eel eel elt lt elt cee elt cells cl cells cl cals cl elt calls calls calls cl lly 
mee cee ce ec ee ee ee ed dd dd od od 
oe ee ee __ __.___  e eee eS Y 
000909 0909 SI NINN NOAA AA AAAAA MIU BS BBB BBE BE EAA AINA 


PWN — O OCOnNOuUsUn—O OOo 


oO 
uw 


| NAL 
-. - 0-74 Page 40) 
=$ep-1984 00:34:5 VAX-11 Bliss-32 V4. : 322829 (199 +A 
it om Rear tes “edule 17-308: 50: SKSVMSMAS TER: CNML. SRCINMLSHOW.B32; 
yore bo" NMLSGET ENTITY 10S Get multiple entities 14-Sep 1982 90:35 38 DI 
: 1198 i ‘ 4 SELECTONEU .ENTITY OF 
: 1198 1 ¢ : NFBDSC = ACT_SNK_NFBDSC; | 
: 1300 i $ ¢ NAL SE=CDCGING. NEGDSC = KCT_COG_NFBOSC; 
: 1504 1190 4 TES 
# $8 1192 3 ese’ 
: ) : Hi i NOWN entity entries | 
: i 06 1198 4 Use canned NFBs (above) and build a P2 buffer to get K entity | 
: 1 08 1199 4 SELECTONEU .ENTITY OF a 
1208 1198 2 : KNO_CIR_NFBDSC; ' Circuits 
ie tied EE See! | Hotta etme 
i} 8 130) d NACSE LOGGING) : NFBDSC . KNO~LOG_NFBDSC: ! Logging (filters) 
: iste 1508 4 NML$C~LOOPNODE): ! Loop nodes of 
; 156 1204 ; atte = KNO_LOO_NFBDSC; 
: 1539 06 5 SRCHLEN1 = 0; 
: i516 1307 5 SRCHADR1 = 1; ! Match loop nodes 
: 1219 3s i: : NO_OBJ_NFBDSC; ' Objects 
1229 Ht d wa $5 Gee CT: NFBDSC . KNO“NOD-NFBDSC: ! Remote nodes 
; - th = Network 
7 1512 6 sepa ee T_NFBDSC; ' X=25 Access Ne 
; 1228 : 18 4 NML$C_PROT DIE}: NFBDSC S"KNOZDTE NFBDSC: ! X-25 Protocol DTE 
: 1558 an 4 ENALSC~PROT~GRPI 
: 1206 1512? i entry for each DTE in the group. 
: 138% 1319 i aT cotaten etek ager: A. group, get all the entries ia 
: 1589 1 is ¢ i the speci tied group. Otherwise, get all entries for a 
; 1580 1219 4 i groups. 
1333 i $¢ : BEGIN sts 
: : RP_N : 
: 1338 1238 3 NEB 2 NFBDSC CDSCSA. POINTER): 
; 1585 1554 5 IF .ENTITY_LEN GTR O- THEN 
i} 1385 4 Mangala eee cep Ss 
: 1538 15 $ 3 SRCHLEN] =~. ENTITY_LEN; 
: i 35 13 8 6 SRCHADR1 = .ENTITY ADR; | 
: 1240 1 6 END 
; i 4g i ? 3 att CNFBSL_SRCH_KEY] = NFBSC_WILDCARD; 
: 1 4 END; 
; 1344 : 4 —. beens RN i. 5st NFBDSC; ! x-25 Server Destination 
+ 1245 =X25_DST_ 
: 1346 é 4  MEBDSC = KNO X25, TRENT NFBDSC; ! x-25 Tracepoint 
: RV_BESTI: aes 
‘8 i ¢ CNA AD SCnoe C; : X=29 Server Destination 
; 1343 : 38 4 pan tH ern SET MIE Links don't use this. 
: OTHERQISE): | 
; 1351 154) RETURN NML$_STS_MPR; 
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| 
; 1253 1243 TES; | 7] 
; 1254 124 END; :] 
; 1255 1244 : 1 
: 1g96 1245 7] 
: | { 1246 | Build the P2 Q10 buffer. st 
: 1259 1248 NMLSBLDP2 ( .SRCHLENT, .SRCHADR1, | 
> 1260 124 -SRCHLEN2, .SRCHLEN2, :] 
: 1261 1250 P2_BuF_DSC, P2DSC); 2] 
ie 1 hes : 
3: 12646 1 35 ! Get a bufferfull of entities. Calling routine must reenter this routine ‘ 1 
; ' 65 ' 4 i to get subsequent bufferfulls. : } 
: 1 ef | 56 STATUS = NMLSGETDATA (.NFBDSC, P2DSC, NMLSQ_LISTBFDSC, .LISDSC); : | 
; 1269 1 ss ! If the error returned is NML$_STS_CMP then the end of the data base : 1 
; 1270 1259 ' has been reached. If any other error is returned then build the | : 1 
: : a) : ¢' appropriate message and signal it. ; : 
| os 1 6¢ IF NOT .STATUS AND (.STATUS NEQ NML$_STS_CMP) : 1 
> 1274 126 THEN 37 
: 1275 1264 BEGIN $1 
3 1276 1265 NMLSBLD_REPLY (NMLSAB_MSGBLOCK, MSGSIZE); s 1 
3 1277 1266 SSIGNAL-MSG (NMLSAB_SNOBUFFER, .MSGSIZE); 7] 
; 1278 1267 END; 31 
3: 1279 1268 3 7 
; 1280 1269 2 RETURN .STATUS $y 
3: 1281 1270 : 7 
; 1282 1271 1 END; ! End of NMLSGET_ENTITY_IDS sf 
- 
-PSECT $PLITS,NOWRT ,NOEXE ,2 : | 
0000001C 00020 P.AAE: .LONG 28 5 3s 7 
00000000° 00024 «ADDRESS U.3 3 3] 
BORO OS 4 8 P.AAF «LON $ 3 1 
v000000" 0002C ADDRESS U.5 : 3] 
900001 ¢ 0030 P.AAG: .LONG : : 1 
000000" 000 -ADDRESS U.7 ; 
8 3 Bas 88 8 P.AAH: .LONG : 
00000000" 000 -ADDRESS U.9 ; 
iC B040 P.AAL: .LON ; | 
00' 44 - ADDRESS oh : 
NC, B0048 P.AAJ: 3 
° O4¢ -ADDRESS _U.13 ; 
0 4 P.AAK: :LON ; | 
0' 4 -ADDRESS U.15 : 
1 8 P.AAL: . : 
. 2s -ADDRESS U.17 ; | 
1¢ P.AAM: .LON ; 
90° oe -ADDRESS U.19 ; 
P.AAN: .LON ; 
00' of -ADDRESS U.21 : 
IC P.AAO: .LON ; | 
00' 00074 -ADDRESS U.23 : 


ss | 
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06 12 0009 BNEQ §=«-:*111$ 
64 DO OA H 99 MOVAB KNO_ACC_NET NFBDSC, NFBDSC 
90 BRB 4 
OF D1 OOOSF 11%: CMPL RO, #15 
12 he BNEQ 138 
64 p8 OA H A MOVAB KNO_DTE_NFBDSC, NFBDSC 
1 Ag 138: BRB 24 
10 D1 OOOAA 13$:  CMPL RO #16 
12 OO0AD BNEG =*7$ 
4 EO AS SE OOOAF MOVAB KNO_GRP_NFBDSC, NFBDSC 
0 64 DO 00083 MOVL NFBBSC,~RO 
0 04 AO D B6 MOVL  4(RO), NFB 
8 AC D BA TSTL ENTITY_LEN 
12 1 BD BLEG 5$ 
04 Ag 0A020041 8F DO O00BF MOVL § #167903297, 4(NFB) 
5 8 Ac 00 00C7 MOVL  ENTITY_LEN, SRCHLEN1 
C ac 00 000CB MOVL ENTITY_ADR, SRCHADR1 
30 11 OOOCE 14$: BRB 4$ 
04 Ad 1 00 00001 15$: MOVL #1, 4(NFB) 
A 11 00005 16$: BRB 24§ 
12 0 D1 00007 17$:  CMPL RO, #18 
06 12 OOODA BNEQ 19$ 
64 E8 AS 9E donc MOVAB KNO_X25_DST_NFBDSC, NFBDSC 
1f 11 000EO 18$: BRB 24 
14 50 01 OOEe 19$: CMPL RO, ~#20 
06 12 OO0E BNEQ 21 
64 FO AS YE OOOE7 MOVAB KNO_X25_TRPNT_NFBDSC, NFBDSC 
14 11 000EB 08: BRB 24 
16 50 D1 OOOED 21$: CMPL RO #22 
06 12 OOF BNEG 238 
64 F8 AS YE OOOF MOVAB KNO_X29_DST_NFBDSC, NFBDSC 
09 11 O00F6 28: BRB 24 
18 » 50 D1 OOOF8 23$: CMPL  RO, #24 
04 13 000FB BEQL 24$ 
50 A CE S90FD MNEGL #10, RO 
04 00100 RET 
O1A6 «CKO 0101 24$ PUSHAB p20 
10 AS 9F 00105 PUSHAB P2_BUF_DSC 
53 DD 00108 PUSHL SRCHLER2 
OA BB O10, PUSHR #*M<R1,R3> 
2 DD 10¢ PUSHL SRCHLEN1 
000000006 00 06 FB 001 : CALLS #6, NMLS$BLDP2 
14 ag DD 00115 25$:  PUSHL LISDSC 
FF78 CS 9F 00118 PUSHAB NML$Q_LISTBFDSC 
O1A4 «= C4—sO:s«O0011 PUSHAB P2DSC 
4 DD 001 PUSHL NFBDSC 
00000000v 99 4 FB 001 CALLS #4, NMLSGETDATA 
0 dO 001 MOVL RO STATUS 
gp é E8 0012C BLBS STATUS, 26$ 
FFFFFFFO © 8F D4 12F CMPL STATUS, h-16 
4 1 BEQL 6$ 
E pd 1 PUSHL SP 
000000006 9 F 0013A PUSHAB NMLSAB_MSGBLOCK 
000000006 00 Fe 001 9 CALLS #2, NMCSBLD_REPLY 
cogonnns $5 BF Sts FuBtha. ‘tat UE cupsurren 
stead F DD Sher PUSHL Wetoosee0 
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23 


ee ed ed ed a sd = wd dd — 4 1 2 = 


VOLe800" NALSCET ERT TY IDs “rs multiple entities 18560-1984 99:35:36 ST eKSUMGHAS TERS CML SRCSNML SHOW. B32;1 face 135 


000000006 99 03 f o018¢ ae Rove: #3, LIBSS{GNAL 1269 


; Routine Size: 352 bytes, Routine Base: SCODE$ + 0710 


a 7 
SSHOW NML SH ameter modul 16-Sep-1984 VAX-11 Bliss-32 V4. 9 
Hyatt NMLSBLOSHOMBUFS Bul ta SHOW G10 buffers o-8ee=13Re 93:85:38 | Phe binShaSFeascwmc sec ium sHow.es2;9°% (135 
; 1284 1 a 1 ZSBTTL “NMLSBLDSHOWBUFS Build SHOW Q10 buffers’ 
: 1285 1275 1 GLOBAL ROUTINE NMLSBLDSHOWBUFS (ENTITY, ENT_FORMAT Gatity. ADR, 
> 1074 1 P2 BUF DSC, PeDS 
; \ f3 QUAL_PST, QOAL_LEN, POUAL ADR) = 
: 1289 1 8 1 '44 
; 1290 1 4 1/ FUNCTIONAL DESCRIPTION: 
3; 1291 1279 13 This routine is called to finish the NFB buffer and build the ue 
: 129 1280 1! buffer for various special pacpees SHOW operations. It is used 
3 ; ot, : 4 : mostly when processing SHOW KNOWN or ACTIVE commands. 
: ! 95 ! es ! FORMAL PARAMETERS: 
3; 1 38 1285 1! ENTITY Encl ty ENT ORNO code. 
; 1298 1 56 1} ENT _FORMAT NMASC => Get KNOWN entities. 
3; 1299 1087 1! NMASCTENTIACT => Get ACTIVE entities. 
3; 1300 1288 1! NMASC_ENT_LOO => Get Loop nodes. 
3 1301 1289 1 NMASC_ENT_ADJ => Get adjacent nodes. 
; 139 1290 1 Length of-entity ID (used for SHOW commands with 
; 130 1291 1! qualifiers. e qualifier makes the SHOW essentially 
: 1304 1 38 13 a multiple SHOW. 
; 1305 1293 1! ENTITY_ADR Address of entity ID string. Used only for SHOWs 
: 1306 1294 1: with qualifier 
; 1307 1295 1! NFB Address of butter with NFB to do dy le entity SHOW. 
3; 1308 1296 1! This buffer is modified to do SHOW KNOWN or ACTIVE. 
; 1208 p44 : P2_BUF _DSC peeress of descriptor of buffer in which to build 
3 n 
3; 1311 it 94 1: P2DSC Address of doacrietor of P2 info returned to caller. 
3 13i¢ 1300 1! QUAL_PST Address of Qualif or s entry in the Parameter 
3; 131 1301 1! Semantic Table (PS 
3; 1314 1 8 1/ QUAL _LEN Qualifier ID Soskna iencth. 
: 1313 1303 1! QUAL_ADR Qualifier ID string address. 
3 1316 1304 1! 
3 1317 1305 1 i- 
g 1318 1306 1 
3 1319 1307 2 BEGIN 
: 1339 1309 3 MAP 
: 1356 1310 NFB: REF BBLOCK, 
3 132 1311 QUAL_PST: REF BBLOCK; 
HBS THE 3 vocu 
> 1326 1312 STATUS, 
: 1352 1312 SEARCH_VAL1, 
; 1328 1 1g SEARCH-LEN1, 
s 1365 131 SEARCH_VAL : 
3; 1330 1318 SEARCH_LEN2; 
|} ee 
3 : He : 1 : First fill in the NFB. This block describes the Q10 to the ACP. 
: 1335 1 i i Set the MULTIPLE bit so the ACP returns multiple Links in each buffer, 
3 1 Hs 1324 ' and the ERROR UPDATE bit, so the ACP will update it's pointer into it's 
3 1338 ' 5 database even if an error is encountered in the search. 
; 1339 1 $ Fe CNFBSB_FLAGS) = NFBSM_MULT OR NFBSM_ERRUPD; 
3; 1340 1328 SELECTONEU™ .ENT FORMAT OF~ 


$$ 
St 
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L 
. 4 
ee 
3: 134 1331 ' Set up the NFB to request SHOW KNOWN entities, SHOW ADJACENT NODES, 
3 : ¢ : § or SHDW LOOP NODES. 
; | $ ! 4 CNMASC_ENT_KNO, NMASC_ENT_LOO, NMASC_ENT_ADJJ: 
3 1348 1 $ NFB CNFBSL_SRCH_KEY] = .NMLSAB_ENTITYDATA C.ENTITY, EITSL_KNO_SRCH_ID1]; 
> 1349 1 NFB CNFBSB-OPER] = .NMLSAB_ENTITYDATA L.ENTITY, E1?$B8_KNO-OPERIJ; 
: 1350 1338 SEARCH_VALT = .NMLSAB_ENTITYDATA C.ENTITY, EITSL_KNO_SRCH_VAL 13; 
3: 1351 1339 SEARCH_LEN1T = .NMLSAB_ENTITYDATA C.ENTITY, EITSL_KNO_SRCH_LEN1J; 
: 1388 132) Soom 
3 ! r+ : ri} Set up the NFB to request SHOW ACTIVE entities. 
: 1356 1344 CNMASC_ENT_ACT): 
3 1322 1345 BEGIN 
; 1358 1346 NFB CNFBSL_SRCH_KEY] = .NMLSAB_ENTITYDATA C.ENTITY, EITSL_ACT_SRCH_ID1); 
3; 1359 1347 NFB CNFB$B-OPER] = .NMLSAB_ENTITYDATA C.ENTITY EITSB ACT_OPER1]; 
3; 1360 1348 SEARCH_VALT = .NMLSAB_ENTITYDATA E.ENTITY, EIT$L_ACT_SRCH-VAL1); ; 
: 1361 1349 SEARCH_LEN1 = .NMLSAB_ENTITYDATA C.ENTITY, EITSL_ACT_SRCH_LEN1); ; 
Si a ee 3 
3 1364 1326 ! This path is useful for single oncity SHOWs or SHOW commands with ; 
; 1365 135 ; quan triers, For example, since the X25 GROUP quel ifrer.. DIE, repeats ‘ 
; 1366 132e i for a single GROUP, the SHOW command is essentially a multiple ‘ 
3; 1367 1355 ! operation. ° 
3; 1363 1356 ! ‘ 
3; 1369 1357 {1 TO 16): . 
: 1370 1358 BEGIN 
3; 1371 1359 NFB CNFBSL_SRCH_KEY) = .NMLSAB_ENTITYDATA C.ENTITY, EITSL_SRCH_ID1]; 
s 1376 1360 NFB CNFBS$B-OPER] = NFBSC op_eac; 
3 137 1361 SEARCH_VALT = .ENTITY_ADR; 
; 1374 136¢ SEARCH_LEN1 = .ENT_FORMAT; 
3; 1375 136 END; 
3; 1376 1364 TES; 
1306 1366 3 | 
3; 1379 1369 ! If there's a qualifier on the NICE command, use it for the second search 
: 1380 1368 ! key. Otherwise, default the second search key to a wildcard. 
3; 1381 1369 i Also, default the second search ney to a wildcard if the entity id 
3 1386 1370 ' is for circuits or nodes because the qualifiers for them are, respectively, 
; 138 1371 ' ADJACENT NODE and CIRCUIT, and are held in the adjacency database (AJ!> 
: 1385 ! a rather than the node or circuit databases. 
3 1 a6 1374 NFB CNFBSB_OPER2) = NFBSC_OP_EQL; 
; 138 1375 IF .NMLSGL_PRS_FLGS CNMLSV_PRS QUALIFIER] AND 
3:1 137 sENTITY NEQ NMLS$C_CIRCUTT AND 
; 1389 137 ENTITY NEQ NMLSC_LOOPNODE AND 5 
: 1390 1378 ENTITY NEQ NMLSC_ADJACENT_NODE THEN 
3: 1391 it 4 4 BEGIN 
: 1 3 1380 NFB CNFBSL_SRCH2_KEY) = .QUAL_PST CPSTSL_NFBID); 
3; 139 1381 -QUAL_LEN EQL~O T 
3 ' Be ! ; EARTH_VAL2 = ...QUAL_ADR 
3 oS 1384 SEARCH_VAL2 = ..QUAL_ADR; 
3 139 1385 SEARCH_LEN2 = .QUAL_LEN; 
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poreneter module 18-Sep-1984 90: 34:38 VAX-11 Bliss-32 V 
HOWBUFS Build SHOW Q10 buffers 14-Sep-1984 12:50:2 DISKSVMSMASTER: (CN 
END 
ELSE 
BEGIN 
SELES TONEU ENTITY OF 
ENMLSC_NODE? : 
i for multiple node shows, don't return the executor or loopnodes. 
! They are done separately. Note that using a second search key of 
! node address neq 0 filters out both the executor and loopnodes. 
ALL loopnodes have an address of 0. 
BEGIN 
NFB CNFBSL_SRCH2_KEY] = NFBSC_NDI_ADD; 
SEARCH_VAL2 = 0; 
oro tw LEN2 = 0; 
NFB CNFBSB_OPER2) = NFBSC_OP_NEQ; 
END; 
CNML$C_CIRCUIT_ADJACENT): 
i For showing the ADJACENT NODES of SHOW CIRC, skip over entries 
for which the node isn't reachable. 
BEGIN 
NFB CNFBSL_SRCH2_KEY] = NFBSC_AJI_REA; 
SEARCH_VAL2 = 1; 
SEARCH_LENe = 0; 
END; 
COTHERWISE): 
NFB CNFBSL_SRCH2_KEY] = NFBSC_WILDCARD; 
SEARCH_VAL2 = 0; 
SEARCH-LEN2 = -1; 
END; 
TES; 
END; 


: Build the P2 Q10 buffer. 


STATUS = NMLSBLDP2 (.SEARCH_LEN1, .SEARCH_VAL1, 
~SEARCH-LEN2, .SEARCH-VAL2, 
-P2_BUF_DSC, .P2DSC); 
RETURN .STATUS; 


END; ! End of NMLSBLDSHOWBUFS 


003c 000 .ENTRY NMLSBLDSHOWBUFS, Save R 
55 00000000 00 9 MOVAB NMLSAB_ENTITYDATA+14, R 
1 1 as 3 MOVL NFB, RT 
01. «Al 0 D MOVB #3, 1(R1) 
52 08 AC dO 00011 MOVL ENT_FORMAT, R2 


| 


4.0-74 Pa 1 
mi SRCINMLSHOW.B32:1° 9" (13) 


oR3,R4,R5 


1273 
1327 
1328 | 


ee 


ee ee 


| 
NMLSSHOW arameter module ibs e 4 4: VAX-11 Bliss-32 V4.0 
042000 NAL SBLDSHBUBUFS Build SHOW Q10 buffers 14- a 1984 99: 36; 38 DISKSVMSMASTER: CNML. she NMLSHOW.B32; ia a 
FFFFFFFC  8F 2 D1 15 CMPL Re. Wo4 ; 1334) : 
iF i¢ BLSSU. 1 : : 
FFFFFFFD 8F : D1 1 CMPL Re. #-3 : ; 
g 1B 00 BLEQU 2 : : 
FFFFFFFF 8F 22 p] 20 1$ cnet. Ree #-1 3 : 
50 06 AC ec cs 6 6 2$ MULL3 #44, ENTITY, RO + 1336 : 
65 F 0 PUSHAB NMLSAB_ENTITYDATA+14(ROJ : 3 
046 Al 3 DO 00038 OVL a(SP)+> 4(R1) : ; 
03 Al 0c A540 90 99 s vB NML$AB_ENTITYDATA+26ERO], 3(R1) + 1337 ; 
08 A540 9F 0004 PUSHAB NMLSAB-ENTITYDATA+22LRO] : 1338 : 
54 9 po 0046 L  a(SP)+> SEARCH VAL : ; 
04 AS4 7 0049 PUSHAB NMLSAB_ENTITYDATA#18CROJ : 1339 ; 
FFFFFFFE 8F s D1 OOO4F 3$: CMPL Re. #-2 + 1344 ; 
‘ le 0096 7:9 : ; 
50 04 AC ¢ § 005 MULL3 #44, ENTITY, RO + 1346 F 
OD A540 9F 00050 PUSHAB NML$AB_ENTITYDATA+27(RO) ; : 
06 Al i DO 00061 MOVL  a(SP)+> 4(R1) : ; 
03 «Al 19 A540 90 00065 MOVB NML$AB_ENTITYDATA#39 R01. 3(R1) + 1347 : 
15 A540 9F 00068 PUSHAB NML SAB_ENTITYDATA#35 ROI > 1348 j 
54 9 D0 S006F MOVL a(SP)+, SEARCH_VAL1 ; ; 
11 A540 9F 00072 PUSHAB NAL SAB “ENTITYDATAY31CROJ + 1349 ; 
53 9E DO 00076 4$: MOVL @(SP)+> SEARCH_LEN1 : : 
29 11 00079 BRB 64 : 1328 ; 
2 b3 0078 5$: TSTL = R2 : 1357 : 
1¢ 13 0007D BEQL © 6$ : ; 
10 3¢ D1 0007F CMPL R2, #16 : ; 
17 1A 00082 BGTRU 6$ : : 
50 04 ac 2c C5 00084 MULL3 #44, ENTITY, RO : 1359 ; 
F8 AS4O SF 00089 PUSHAB NMLS$AB_ENTITYDATA+6(RO] : ; 
04 Al 9E DO 0008D MOVL a(SP)+> 4(R1) : ; 
03 Al 94 00091 CLRB =s_- 3(R1) : 1360 : 
54 0C AC DO 00094 MOVL | ENTITY_ADR, SEARCH_VAL1 : 1361 : 
53 52 D0 90098 MOVL Ree SEARCH. LEN1 : 1362 ; 
0c Al 94 00098 6$: CLRB =: 12¢R1) : 1374 ; 
33 000000006 00 02 £1 0009E BBC #2, NMLS$GL_PRS_FLGS, 9$ : 1375 ; 
09 04 AC O1 O00A6 CMPL _—sC_ENTITY, : 1376 ; 
2D 13 QOOAA BEQL «=s«O9$ ; : 
05 04 AC 01 S0AC CMPL ENTITY, ws : 1377 ; 
27 13 000B0 BEQL $ : ; 
06 04 AC D1 000B2 CMPL ENTITY, BG : 1378 : 
21 13 00086 BEQL ; ; 
50 1¢ AC OOD 0088 MOVL i PST, RO : 1380 : 
08 Al OC AO D BC MOVL {RO bert) ; F 
20 AC 05 000C1 TSTL : 1381 ; 
09 12 000C4 BNEQ : ; 
50 24 BC dO 000C6 MOVL se RO > 1382 : 
50 60 00 OOCA MOVL (RO), “SEARCH. VAL2 : : 
04 11 000CD BRB $ : : 
59 34 BC 9 OOCE 7$: MOVL § @QUAL_ADR, SEARCH VAL2 > 1384 : 
2 0 aC D D3 8$: MOVL QUAL. CEN, SEARCH_CEN > 1385 : 
38 (11 6 D BRB $ : 1375 : 
50 04 AC DO 00009 98: MOVL ENTITY, RO : 1389 ; 
0 30 D1 990 CMPL a3° : 1391 ; 
1 if £ BNEQ i0¢ ; : 
08 Al 02010012 8F 00 O00E MOVL 619986, 8(R1) : 1399 ; 


6 3 
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; Routine Size: 


8 
$SH NML SHOW parameter module 1b-se -1984 00:34: VAX-11 Bliss-32 V4.0-74 Page 54 
VOL 008" NMLSGETDATA Get volatile entity data 1 ~8ep-19 4 90:35:38 ST EKSUNGHASTERSCWRC SRCINML SHOW.B32:1 ° (14) 


3: 1446 1433 1 ZSBTTL "NMLSGETDATA Get volatile onc ity data’ 
3 ieee 1° ¢ : GLOBAL ROUTINE NMLSGETDATA (NFBDSC, P2DSC, QBFDSC, P4_DATA_DSC) = 
3 14469 14 $ 1 44 
s 1431 1 ! FUNCTIONAL DESCRIPTION: 
3; 14 § 14 § 1} This routine reads volatile entity data for the specified NFB and 
3 14 1440 1! P2 parameters. 
3: 16546 1441 1! 
3; 1655 1226 1 ! FORMAL PARAMETERS: 
3 14 $ 1445 1! 
: \e2 1444 1! NFBDSC Address of NrB descriptor. 
3; 1458 1445 1! P2DSC Address of P2 descriptor. 
3 1459 128 3 QBF DSC Address of Q10 buffer descriptor. 
: 1460 1447 1! P4_DATA_DSC Address of descriptor for data to be read. 
: 1461 1448 1! 
3 1008 1449 1 !<- 
: 146 1450 1 
3 1464 1451 BEGIN 
3: 1465 ed 
: 1298 145 MAP 
3: 146 1454 NFBDSC : REF DESCRIPTOR, 
3; 1468 1455 P2DSC : REF DESCRIPTOR, 
3; 1469 1456 QBFDSC : REF DESCRIPTOR 
: 1470 1457 P4_DATA_DSC : REF DESCRIPTOR; 
: 14671 1458 
3 ee 1459 LOCAL 
: 1467 1460 STATUS; 
> 1474 1461 
3: 1475 1206 IF .QBFDSC NEQ 0 THEN 
3 1678 et P4_DATA_DSC CDSCSA_POINTER] = .QBFDSC COSCSA_POINTER]; 
3: 1478 1465 STATUS = NMLSNETQIO (.NFBDSC, 
3 1479 1466 . 
> 1480 1467 P4 DATA_DSC CDSC$W_LENGTH], 
3: 1481 1468 -QBFDSC); 
3 et 1469 
: 148 1470 RETURN .STATUS 
3: 1484 1471 
: 1485 1472 1 END; ' End of NMLSGETDATA 
0000 C0000 «ENTRY NMLSGETDATA, Save nothing : 1434 
51 0c aC i3 BR age apy SOF Ost, R1 : 1462 
50 10 ac OD 4 MOVL P4_DATA_DSC, RO : 1463 
04 AO 04 Al 00 C OVL 4(R1), &(ROS ; 
51 OD 8 11 18 PUSHL Ri ; 1468 
10 AC bo 13 PUSHL P4_DATA_DSC 3: 1467 
43 04 AC D 00016 MOV NFBDSC, -(SP) : 
00000000G 0 FB gait CALLS #4, NMLSNETQIO 3 
04 21 RET : 1472 


; Routine Size: 34 bytes, Routine Base: S$CODE$S + 0993 


———— ——_—- —-— ---—} 


F 8 
NAL SHOW -Sep-1984 00:34: AX-11 iss- 4.0-74 P 5 
iva ti NALSCE TDA Pier colaxtie entity data 127868=1 382 99:35:36 Disk VMSMAS ERM SRC NMLSHOW.B32:1° 9" (123 


'e¢ 


FUNCTIONAL DESCRIPTION: 


This routine adds data to the output message using the information 
tatle and the input data buffer. 


i FORMAL PARAMETERS: 


QLESRENSLSSES 
OONAV SUMO OONOUL Ww 


3: 1 1473 1 

3 14 \ef 1 

: 14 14 1 

3 14 1476 1 

; 14 1477 1 

3; 14 1478 1 

3 14 1479 1 

; 14 14 1} 

3 14 14 1! 

3; 14 14 1: 

3; 14 14 1! 

3 1$38 14 1! 

3 14 14 1! ENT Internal entity id code. 

; 1500 14 ‘ft TABDES Address of information table descriptor. 
; 1501 14 se P4_DATA_DSC Address of data buffer descriptor. 
31 B¢ 16 . 7 P4_DATA_PTR Address of data buffer pointer. 

: 150 1489 1! NITE_MSG_DSC Address of descriptor to describe output message. 
; 1504 1490 1! 

; 1505 1491 1 !-- 

; 1506 1436 1 

; 1507 149 BEGIN 

; 1508 1494 

: 1509 1495 MAP 

; 1510 1496 tabdes : REF DESCRIPTOR 

> 1511 1497 p4_data_dsc : REF DESCRIPTOR, 

3 1218 1498 nice_msg_dsc : RE, DESCRIPTOR; 

; 151 1499 

3 1514 1500 LOCAL 

3; 1515 1501 msgsize, ' Output message length 

3 1218 1306 strdsc : DESCRIPTOR; ! Entity id string descriptor 
: 1518 1504 nml$getidstring (.ent ¢pc-data_ptr strdsc); ! Get entity id 
3; 1519 1505 nm $ab_msgbloc msb$(_f ags] = msb$m_entd_fld; 

: 1520 1506 nml$ab_msgblock Emsb$b_code] = nma$c_Sts_suc; 

3 1388 1207 nml$ab_msgblock Cmsb$a_entity] = strdsc; 

; 12 5 1299 nml$bld_reply (nmlSab_msgblock, msgsize); 

; 1858 1511 nml$showparlist (nml$gq_sndbfdsc, 

: 1526 13i¢ msgsize, 

3: 1527 151 -tabdes, 

3: 1528 1514 2 -p4_data_dsc 

: 13 9 1315 -p4_data_ptr); 

3; 1531 1349 nice_msg_dsc Cdsc$w_length] = .msgsize; 

3 1236 1518 nice_msg_dsc [dsc$a_pointer] = .nml$qq_sndbfdsc Cdsc$a pointer); 
; 153 1519 1 END; ! End Of NMLSPROCESSDAT 


0094 90009 ENTRY NMLSPROCESSDATA, Save R2 
$2 000000006 00 9 00008 OVA $AB_MSGBLOCK, R2 
é C L 
04 AE OF C PUSHAB STROSC 
0 ac dD ; PUSHL °4_DATA_PTR 


8 
NML SHOW parameter module 18-Sep-1984 90: 34:38 VAX-11 Bliss-32 net Page 6 
NMLSPROCESSDATA Add data to output message 14-Sep-1984 12:50: DISKSVMSMASTER:CNML.SRCIJNMLSHOW.B32;1 (15) 
4 ZSBTTL "NMLSPROCESSDATA Add data to output Brssege: 
GLOBAL ROUTINE NMLSPROCESSDATA (ENT, TABDES, P4_DATA_DSC 
P4_BATA-PTR, NICE_MSG_DSC) :NOVALUE = 


1474 


1504 


ule 
Add data to output message 


ie 
? 
: 


sso 
bt i 
4 
us 
ono 
b+ ~ 
oP 
-o 
No 
us 
o> 
row 
oo 
— 
o=<= 
-> 
wu 
| 
af 
<_— 
= 
ow 
me 
>-. 
nw 
one 
Sy 


FOooog *"VTVlT@M@ImMoow 


; Routine Size: SCODES + 0985 


=32,¥ 
E 
¥ NML $GETIDSTRING 
#6, i AB_MSGBLOCK 
#1, NMLSAB_PSGBLOCK+4 
STRDSC, NMCSAB_MSGBLOCK+20 
Homer * SP> 
» NMCSBLD_REPLY 
4 *DATA_DSC> =(SP) 
TAD DES ~ 
MSGSIZE 
NMLSGa SNDBF DSC 
mnsc.ost RO. 
NI ite MSG_D 


MSGSIZE,~ 
NML$GQ_ ENDEr DSCs, 4 (RO) 


EEN: OSRCINML SHOW. B32; ? 


BeBe Se Se Be Se Se Se Fe Be Fe Ge Se Se Se Se 


9435 


| 
— 


8 
NML SHOW parameter module 1h-56 -1984 00:34: VAX-11 Bliss-32 V4.0-74 Pa 58 
NMLSGETIDSTRING Get entity id string 12-8 08- 1 3be 90:35:38 DI SKSVMEMASTER CNM SRCINMLSHOW.B3251 9 18) 
ZSBTTL "NMLSGETIDSTRING Get entity id string: 
GLOBAL ROUTINE NMLSGETIDSTRING (ENT, P4_DATA_PTR, STRDSC) = 


'e¢ 


FUNCTIONAL DESCRIPTION: 


This routine builds the eet id yen and descriptor for the 
NICE response message. It gets the entity ID from the P4 buffer 
returned by NETACP. 


FORMAL PARAMETERS: 
Internal entity id code. 


ENT 
P4_DATA_PTR Address of data buffer pointer. 
STRDSC 


i 
i 
i 
i 
i 
i 
i 
i 
Address of descriptor for output id string. 
le 


BEGIN 


PUPVIVIVIUIVSIVIVSIUSULULUSIV IVI SUSU SUSOSV SISSY 
uw 


PPADS EEE EEE 


STRDSC : REF DESCRIPTOR; 
LOCAL 

LEN, 

PTR; 


STRDSC CDSCSA_POINTER] = .NMLSQ_ENTBFDSC COSCS$A_POINTER); 
PTR = .STRDSC CDSCSA_POINTERI; 


SELECTONEU .ENT OF 
SET 


WN “SO CONOVESWN“"OODONOU SW O0@ 


ASOOouuw 


ADJACENT, 
ADJ_SRV 


WAN NWNIWIWIWInononononononoronory 
AME WN SO OONAUES WO DOONAN WR OO ODNOUES WN O 


EN = CHSRCHAR_A (.P4_DATA_PTR); 
CHSRCHAR_A (.P&%_DATA_PTR); 


CHSWCHAR_A (.LEN, PTR); 
PTR = CHSMOVE (.LEN, ..P4_DATA_PTR, .PTR); 


-P4_DATA_PTR = ..P4_DATA_PTR + .LEN; 
END; 
CNMLSC_LOGGING, NMLSC_SINK]: 


CNML$C_LOOPNODE): 
BEGIN 


SSSLFALAVASSSVSARANAISHIEAF 
ee ee ee ee ee ee ee el wee el el el el el el cee el ee ee ee el el el el ee el rel cel eel el el cl el cl cel el cel el el el cel el el el el eel cll) ld cel cell cel cells eld el 


NNN NNAAAAAARAAAAMMNNNNII ES BERR RRR RE 
WWIWIWAIROIOR. RORUNU WWII WII III nononononononononononononononuny 2 
a) 
5 
: 
o. 


Be Se Se Se Ge Ge Be Be Be Ge Se Se Ge Se Se Ge SH Se Ge Se Ge Ge Se Fe Se Ge Se Ge Ge GHGs Ge Ge Se Ge Ge Se Se Se Gs Se oe Ge Se SH Se Se Sees Se SH Se Se Se eeses 


AUS WN—OOONOULS WO OOn 


DPPPAAAAAVAVIW 


Oo 
— 


-P4_DATA_PTR = ..P4_DATA_PTR + 4; ! Skip address (always 0) 


— — 


8 
SSHOW SHOW gneter module tbs $ep-1984 VAX-11 Bliss-32 V g 
WOLe000 Nat See ETI petri Get entity id string 14-Sep 71984 99: 3533 DIsk Svmen TER: clea’ she NMLSHOW.832; 429 "a3 vO 
3; 1 3 1577 ; 
: 159 157 CHSWCHAR_A (0, PTR); ! Move 0 address : 
: 139% 7 CHSWCHAR-A (0, PTR); : 
:1 1581 LEN = .(..P4_DATA_PTR)<O, 16>; ' Move name : 
; 1 38 1 § 4 DATA_PTR'= ..P4 DATA_PT + 2; : 
; 1598 1 CHSOCHARTA (.LEN, PTR); ; 
s 1238 : ¢ PTR = CHSMovE (, CEN, PG _DATA_PTR, .PTR); ‘ 
: 1601 1 -P4_DATA_PTR = ..P4_DATA_PTR + .LEN; ; 
2: et a ee 3 
3; 1604 13 9 3 
: 1605 1590 CNML$C_LINKS): . 
; 1606 1591 BEGIN ; 
; 1607 1238 Cs ee A (0,PTR); 5 
: 1608 159 PTR OVE (2, ..P4_DATA_PTR, .PTR); ! Move Link number. ; 
> 1609 1594 PG DATA. PTR = ..P4_DATA_PTR + 4;° : 
3; 1610 1595 END? 3 
3; 1611 1298 3 
3 1ol¢ 159 CNMLS$C_X25_ACCESS): : 
: 161 1598 SMOVE LASCIC ¢ (*X25=ACCESS', PTR); $ 
3 1614 1599 : 
3; 1615 1600 CNML$C_PROT_NET, é 
3; 1616 1601 NMLS$C_PROT_BTE j 
> 1617 160¢ NMLS$C~PROT~GRP3: : 
: 1618 160 SMOVE_ASCIC ('X25-PROTOCOL', PTR); 3 
3 1619 1604 3 
3: 1620 1605 CNMLSC_X es SERV, 5 
: 1621 lens NMLS$C Ce SERV DESTI: ; 
3 16 . 160 SCIC (*X25-SERVER', PTR); ‘ 
; 16 1608 F 
: 1624 1609 CNMLSC _TRACE 3 
: 1625 1610 NML$C~TRACEPNT) : 
; 1 $ 193) SMOVE MASCIC ('X25=TRACE', PTR); ; 
3; 1628 188 CNML$C_X eo. SERV, § 
: 1629 1614 NMLSC ¢ Xe SERV_DEST : 
3; 16 1615 ASCIT ('x 9-SERVER', PTR); 3 
: 1631 1616 é 
; 1o¢ H+ 3 4 CNMLSC AREAI: : 
3: 1634 1619 CHSWCHAR_A (0, PTR); ' 0 means area address 3 
: 169) 1620 ! follows. 3 
3; 16 1621 CHSWCHAR_A A (...P4 DATA_PTR eral: ' Move area address. : 
3: 1637 16 § -P4_DATA_PTR = ..P4_DATA_ PTR + 4: ! Increment P4 buffer pointer. g 
: 1638 16 END? ‘ 
3; 1639 1624 3 
: 1640 1625 COTHERWISE): ! It's a remote node or the executor. 3 
3 1641 16 $ BEGIN 3 
: Ho 16 ! 3 
3; 164 16 $ : If I'm talking to a Phase III NCP, and the entity is a node : 
3: 1644 16 ' outside the executor’ $ area, don't return the node to the NCP. : 
3: 1645 1630 ' Phase III doesn’t include areas. at it's a Phase III NCP and $ 
: H+ 9 1631 !' the node is in the executor's area, clear the area number from 3 
3 Hb of 1 ¢ the node number. : 


NAL 
v04 


508" 


NMLSGETIDSTRING 


rs 


COONS WN—OO 


PAAEAAAAAAO 


DPA 


SESEFERES 


QS 


OuFrWUN—O”O 


et a st a 2“ os = 2 2 2 ss ss a Yt 


SPOAAAAAD 


= RVNNNVNNWWWIN AWA AANA BB 
mm 


SANS 


| le le a eal 
Wn in 
WP unes 
AUoeu 
WME 
mr mw 
Puneune 
Mrovirow 


arameter module 
Get entity id string 


K 8 
16-Sep-1984 34:5 V 
1e=88=1 38s 99:85;3 


IF ee (nmi $gb_ncp_version) LEQ 3 THEN 
BIND node_addr = ..p4_data_ptr : BBLOCK; 


IF .node_addr Cnma$v_area) EQL 
\$gw_vol_exec 


nm 
node_addr 


ND; 
ptr = CHSMOVE (2, ..p4_data_ptr 
-p4_data_ptr = ..p4_dafa_ptr + 


len = .(..p4_data 


-p4_data_ptr =... 
if: ¢ 


ent EQL nml$c 


nma$v_area 


acer Cnma$v_area] THEN 
= 0; 


F ptr); ! Move address 


! Move name 


“CHSWCHAR_A (.Ten OR nma$m_ent_exe, ptr) 


CHSWCHAR_A (.Len, ptr); 
ptr = CHSMOVE <.len, ..p4_data_ptr, .ptr); 


-p4_data_ptr = ..p4_data_ptr + .len; 


strdsc Cdsc$w_length] = .ptr - 
A nml$_sts_suc; 


1 2 FF mM 
29 > ; 5 
5 D 35 5 
54 2D 35 32 5 
53 2D 39 32 5 

4 00000000" 

8 oc 

f 

5 04 

57 04 

08 

08 


28 08 


-strdsc Cdsc$a_pointer); 
! End of NMLSGETIDSTRING 


»PSECT SPLITS,NOWRT ,NOEXE,2 


-PSECT $CODES,NOWRT,2 
ENTRY NL SGETIDSTRING, Save R2,.R3,R4,R5.R6,R7,R8,- 
NML$Q_ENTBFDSC+4, R10 
STRDSC, R 
MOVL  NML$Q_ENTBFDSC+4, 4(R8) 
R8); PTR 


MOVAB 

MOVL 

MOVL = &( 

MOVL ENT, R7 
BEQL $ 

CMPL R77, #8 
BLSSU 

CMPL = aR7, #11 
BGTRU 2$ 

MOVL  @P4_DATA 
MOVZBL (ROY, LE 


< 
oO 


writs P 
DISK - SRC JNML SHOW .B32; 1 


eASCII = <10>\X 
eASCII = <12>\X 
eASCII = <10>\X25-SERVER 
eASCII = <9>\XK2 
eASCII <10>\X2 


8 
b-sen-1984 99:35:38 DERKSUMGHASTERSCAML SRCINMLSHOW.832:92 7" (18) 


_—— 
<= 
oOo 


war Show NML_ SHOW peroneter module 
- NMLSGETIDSTRING Get entity id string 


08 BC D ¢ INCL  @P4_DATA_PTR ; ’ 

Bf p F INCL  @P4"DATA“PTR + 1561 ; 

8 MOVES LEN; (PTR)+ + 1563 ; 

08 § p MOVL.  @P4DATA_PTR, RO + 1564 ; 

63 6 MOVC = (ROY, (PT : F 
08 BC ¢ 030 ADDL EN, aP4_bATA_PTR ; 1566 : 

1 0004 BRB : 1550 ; 

5 D3 4 2$ TSTL RB? + 1570 : 

3 1 4 BEQL 46s 3$ : c 

02 D1 0004 CMPL RZ, -#2 : ; 

5 1B 0004A BLEGU 118 : ; 

05 57 D1 O04¢ 3$ CMPL =R7, #5 + 1573 ; 

131 4F BNEG 4$ : ; 

56 08 AC 00 00051 MOVL  P4_DATA_PTR, R6 + 1576 ; 

66 04 C 0053 ADDL2 #47 (R6J : ; 

3 84 05 CLRW (PTR) + + 1578 ; 

59 00 Bs ¢ 0005A MOVZWL @0(R6), LEN + 1581 ; 

66 2 £6 0005 ADDL2 We 4 : 138¢ ; 

0BA 31 0006 BRW 17$ : 158 ’ 

18 57 D1 00064 4$ CMPL = R77, #24 + 1590 ; 

O¢ 12 00067 BNEQ «S$ : : 

83 94 00069 CLRB = (PTR) + : 1592 F 

5 08 AC 00 00068 MOVL § P4_DATA_PTR, RO : 159 : 

B 00 B60 BO 0006 MOVW a0TRO), (PTR) + : : 

64 11 000 3 BRB 13$ + 1594 : 

0D 57 01 00075 5$ CMPL =R7, #13 : 1597 : 

08 if 00078 BNEG 6$ : ; 

63 008c CA 0B 28 O007A MOVC3 #11, P.AAU, (PTR) : 1598 ; 
5A 11 00080 BRB 14$ : ; 

3 57 D1 00082 6$: CMPL —R7, #14 > 1600 ; 

OD 1F 0008 BLSSU7$ : ; 

10 57 01 90087 CMPL R77, #16 : ; 

08 1A 0008A BGTRU 7$ : : 

63 0097 CA 0D 28 0008C MOVCS #13, P.AAV, (PTR) > 1603 ; 
48 11 00098 BRB 14$ : ; 

11 57 D1 00094 7S: CMPL R77, #17 > 1605 3 

Op 1F 00097 BLSSU 8S : : 

12 7 01 00099 CMPL R?, #18 : : 

08 1A 0009C BGTRU 8$ : : 

63 OOAS CA 0B ” 009E MOVCS #11, P.AAW, (PTR) + 1607 ; 
36 1 000A4 BRB 14$ : ; 

13 D1 O00A6 8$: CMPL  —R7, #19 + 1609 : 

p 1F OOOA9 BLSSU 108 : : 

14 D1 OOAB CMPL  —R7, #20 : : 

8 1A AE BGTRU 10% ; : 

63 OOAF CA A es 008 MOVCS #10, P.AAX, (PTR) > 1611 ; 
3 1 086 93: BRB 19$ : : 

15 57 D1 00088 10$:  CMPL 7, #21 + 1613 : 

gp 1F 00088 BLSSU les ; : 

16 pt B CMPL =-R7, #22 ; : 

08 A 000C BGTRU 12$ ; : 

63 00B9 CA B <8 ¢ MOVCS #11, P.AAY, (PTR) > 1615 : 
1 11 000C8 11$: BRB 19$ : : 

0c 7 01 OO0CA 128:  CMPL  R7, #12 : 1617 : 

F 12 000CD BNEG 15$ ; ; 

3 94 OOOCF CLRB =. (PTR) + + 1619 3 

50 08 Ac 00 00001 MOVL § P4_DATA_PTR, RO > 1621 : 


” 2 
L SHOW parameter module 19- Sep 4 4: VAX-11 Bliss-32 V4.0- fe e 62 
NMLSCETIDETR TRING Get entity id string 14-Sep 71382 99: 35 3 DISKSVMSMASTER: CNML. SRCINML SHOW. B32;1 ’ (16) 
83 00 B80 9 05 MOVE a0 (RO), (PTR)+ ; 
6 4 f D 138: ADDL2 #4, (RO) ; 1922 
4D DC 14$: BRB : 4 
03 000000006 9 4 ors 15$: CHPB NML$GB_NCP re #3 + 1634 
50 08 § DO OO0E MOVL aP4 -DATA PTR + 1636 
51 000000006 00 06 EF OO0EB EXTZV Hib," AML Su VOL _EXEC_ADDR+1, R1 + 1639 
51 60 06 A FD OFs cHPZV 6. 3s, ; 
01 Ad FC F BA OOOF BICB2 } , 1(RO) + 1640 
36 0 AC D0 00100 16$: MOVL P4 DATA. PTR, R6 + 1642 
0 86 8 o1 MOVW a@0TR6), (PTR)+ : 
6 ¢ 108 ADDL2 #4, ROD 4) + 1643 
9 00 8B ¢ 0108 MOVZ2WL @0(R6), LEN + 1645 
£6 02 CO 0010F ADDL2 #2, (RO) ; 1646 
07 57 D1 Oiie CMPL -R?, 7 + 164 
07 Mg 011 BNEQ =i 7$ ; 
63 59 80 8F 89 00117 BISB3 #128, LEN, (PTR) + 1648 
93 11 0011C¢ BRB 18$ ¢ 1650 
63 9 90 OO11E 17$:  MOVB LEN, (PTR) ; 
53 6 0121 18$: INCL. PTR + 1648 
63 00 86 33 28 00123 MOVC3 LEN, @0(R6), (PTR) + 1651 
66 9 C0 00128 ADDL @ LEN + 1653 
68 5 04 AB A3 00128 198: SUBW3 4(R&), PTR, (RB) : 1659 
50 01 pO 001 0 Move  #1,_—RO : 1660 
04 001 RET + 1661 


; Routine Size: 308 bytes, Routine Base: S$CODE$ + OAOF 


L_ SHOW 
NACSEET ID TRING 


arameter module 
Get entity id string 


iSo$eo-1964 99:34:59 yatedt Li 


ss-32 V 


3 
STER: CNM mie OSRCINML SHOW. B32; ° 9°49 


: 167 166¢ ] } END End of module 
: 168 1664 0 ELUDOM 
-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
; Name Bytes Attributes 
> SOWNS 2628 NOVEC, WRT, RD .NOEXE.NOSHR, LCL, REL, CON,NOPIC.ALIGN(2) 
; SPLITS NOVEC, *NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 28835 NOVEC, ;NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
pe he eee kane Se ae SyERelg sooscoee Pages Processing 
3 File Total ioaded Percent Mapped Time 
: _$25SS$DUA28: NIML -OBJ INMLL 1B. “L33it 341 73 21 27 00:00.1 
; “E52 2SbUAss WRL IB INMALIBRY <L 231 887 0 47 00:00. é 
: ~$255$DUA28: SHR IB T.L32;1 1279 4 3 63 00:00. 
: =$255$0UA28:C(SYSLIBISTARLET.L32;1 9776 2 0 581 00:03.3 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NMLSHOW/OBJ=OBJ$:NMLSHOW MSRC$:NMLSHOW/UPDATE=(ENHS : NMLSHOW) 
Size: 2883 38 + 2844 data bytes 
Run Time 


Elapsed Time: 02:16. 
Lines/CPU Min: 1796 
Lexemes/CPU-Min: 20482 

"Y Used: 217 pages 
Compilation Complete 


eee ee) 


IPMENT CORPOR 


an? Vay7une ¥a-¢ L AND PROPRIETARY 


DI 
VAX/VMS_V4.0 CO 


